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

myhunterli

<b>

' g1 ~/ q3 L" Y0 R% ]0 t8 V9 L' ?</b>Dim rs_csxx As New ADODB.Recordset
Dim sql As String
4 ]. s) z/ j4 m% @7 JDim tj As Integer
Dim lq As Boolean

2 h! G7 M. z$ f* |6 b
< >sql = "select * from xxxz"
. m# I1 ]! C8 ]$ `rs_csxx.CursorLocation = adUseClient
; }# r! n3 p9 j  |rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
6 j9 s2 d7 w' W# F) w< >Do While lq = True
# f) O/ d/ i; s, Atj = tj + rs_csxx.Fields(4)
rs_csxx.MoveNext
) n* U4 z% o6 x; R- PIf rs_csxx.EOF = True Then lq = False
. T/ _6 j/ _3 [# a, b7 a9 a% o& WLoop</FONT></P>
< >Text1.Text = tj</FONT></P>
" k" `# r: c. e, g7 c< >
$ ^! s8 n6 V0 p: K哥哥姐姐们帮帮忙~
: d  d  }9 E7 O' M/ b- s我用的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>