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

myhunterli

<b>

</b>Dim rs_csxx As New ADODB.Recordset
1 W, W, O( G7 D, R$ K, X5 RDim sql As String
Dim tj As Integer
Dim lq As Boolean


< >sql = "select * from xxxz"
* Y! o9 g9 b+ ^5 L; E. u: U  [rs_csxx.CursorLocation = adUseClient
rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
# d9 f- O+ g* \: }, k, y) i< >Do While lq = True
7 N7 a5 z  ?& ztj = tj + rs_csxx.Fields(4)
) \2 _' v5 b( h( \) ?rs_csxx.MoveNext
; U7 D, \; O) X) u3 H/ oIf rs_csxx.EOF = True Then lq = False
! `. k% L4 |) H2 i2 o% g5 z+ SLoop</FONT></P>
4 V: _6 t# x7 v; v* ?" h6 C" C9 M< >Text1.Text = tj</FONT></P>
< >
5 s( O" S) C! L) ?7 ], ]3 q1 I哥哥姐姐们帮帮忙~
我用的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>