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

myhunterli

<b>
/ k% B) z2 i3 m: @6 |7 U
</b>Dim rs_csxx As New ADODB.Recordset
' i1 ?- @  s' gDim sql As String
Dim tj As Integer
& v1 J' Q4 D& H+ J6 ~' a$ B* nDim lq As Boolean

6 R5 a1 n1 d: W
* `- n! Q" w2 u% z. m5 O  g< >sql = "select * from xxxz"
$ _: j; L- w. a7 d" r) e. \rs_csxx.CursorLocation = adUseClient
9 c/ ?0 F1 x) @3 g# X# m+ [+ V6 Rrs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
+ \9 |) G8 }2 X; Y( A, E< >Do While lq = True
tj = tj + rs_csxx.Fields(4)
3 g( }1 o# L5 p* ^( u0 N( Wrs_csxx.MoveNext
If rs_csxx.EOF = True Then lq = False
Loop</FONT></P>
2 p' A9 @# e5 K, d0 p( D< >Text1.Text = tj</FONT></P>
< >
哥哥姐姐们帮帮忙~
我用的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>