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

myhunterli

<b>
9 q0 V. h" E0 {. ]3 V: _" W$ O
</b>Dim rs_csxx As New ADODB.Recordset
5 ]9 }1 m! I3 c: Y+ l8 A8 Y5 L$ ODim sql As String
* M/ C& a6 D" f3 v4 K0 oDim tj As Integer
3 [! F; y3 V+ V. A* tDim lq As Boolean
( Z! X; B- V! L! x7 o8 l

' U% v" r  C+ y$ {< >sql = "select * from xxxz"
) |( N* i- j' F7 srs_csxx.CursorLocation = adUseClient
' I# l' q9 N& @rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
< >Do While lq = True
8 k0 J, v+ G& J) l+ Atj = tj + rs_csxx.Fields(4)
7 E! }* c. @- u, U) Brs_csxx.MoveNext
If rs_csxx.EOF = True Then lq = False
Loop</FONT></P>
! A1 C7 m# R; o. L< >Text1.Text = tj</FONT></P>
< >
4 `3 @$ o2 o$ J哥哥姐姐们帮帮忙~
3 _, U+ n6 C4 `( Y' i' O( f我用的office的acce数据库~想让csxx表中的N条记录相加~
/ D6 f5 ~8 B4 }, }但随便怎么试也不行~~~请各位好心人帮我改改~</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>