VB小问题!!哥哥姐姐快来帮帮小弟!十万火急!!!

myhunterli

<b>

</b>Dim rs_csxx As New ADODB.Recordset
Dim sql As String
Dim tj As Integer
Dim lq As Boolean
$ F( q5 m/ c! ~6 H
- F/ ?) {' W/ B& f6 W
# q9 _6 _% }9 O" S6 h< >sql = "select * from xxxz"
rs_csxx.CursorLocation = adUseClient
7 [/ A3 u' A4 s# S9 {rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
4 r5 n* R6 B4 N, G8 S< >Do While lq = True
tj = tj + rs_csxx.Fields(4)
rs_csxx.MoveNext
If rs_csxx.EOF = True Then lq = False
5 C& U2 E7 Z% GLoop</FONT></P>
, P  q4 a% ^" f9 I7 X+ ~5 J* ^< >Text1.Text = tj</FONT></P>
( K# w# e3 o5 ~6 l3 g' R. o< >
哥哥姐姐们帮帮忙~
+ V6 `$ e: [* m) Z我用的office的acce数据库~想让csxx表中的N条记录相加~
: p0 \8 T3 V' K* n9 H* R; z8 l. e2 E但随便怎么试也不行~~~请各位好心人帮我改改~</FONT></P>

ilikenba

为什么不直接用while呢？

blueriver

<>为什么那条SQL语句不设为：sql="Select sum(要计算的字段) from xxxz"呢？</P><>还有变量lp开始时是不是设为TRUE，如果不是那就不会执行循环啦</P><>你这样写还不如直接写成：</P><>Do while rs_csxx.EOF&lt;&gt;True</P><>...</P><>Loop</P>