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

myhunterli

<b>

</b>Dim rs_csxx As New ADODB.Recordset
3 j! X$ W" d) K" xDim sql As String
Dim tj As Integer
Dim lq As Boolean


0 R) ?, Y5 w/ D& N# q7 B< >sql = "select * from xxxz"
& x% }4 u, A* y* frs_csxx.CursorLocation = adUseClient
( k7 o9 o6 O9 d1 e7 Z6 N8 Jrs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
4 P2 o7 \" p0 J- [4 J< >Do While lq = True
/ ]1 S# q: X4 Wtj = tj + rs_csxx.Fields(4)
2 x3 K- K* ~; P; B8 z3 krs_csxx.MoveNext
. f' w' z* D3 s3 d: Q4 zIf rs_csxx.EOF = True Then lq = False
Loop</FONT></P>
/ Z3 V$ i) j/ z; |+ z2 d. J< >Text1.Text = tj</FONT></P>
< >
1 R3 k4 r6 c* l9 _哥哥姐姐们帮帮忙~
2 f, Z+ A0 R- p* c9 P7 {: v; D我用的office的acce数据库~想让csxx表中的N条记录相加~
但随便怎么试也不行~~~请各位好心人帮我改改~</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>