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

myhunterli

<b>
* O, u% `0 y/ c2 M- I- S0 U% E
</b>Dim rs_csxx As New ADODB.Recordset
) X! ^2 u* {  h( r1 {Dim sql As String
" e* [: i. D7 Q. I! Z/ X' n  TDim tj As Integer
Dim lq As Boolean

: U! x, P/ B) S
  G8 ~5 F% a- J, z3 f9 u& c< >sql = "select * from xxxz"
rs_csxx.CursorLocation = adUseClient
1 z" u  D! q5 x7 ors_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
& r4 o- Z' r: E4 a; |/ n8 X" l< >Do While lq = True
tj = tj + rs_csxx.Fields(4)
rs_csxx.MoveNext
If rs_csxx.EOF = True Then lq = False
% a. |1 p: }7 b5 S+ M4 ~Loop</FONT></P>
# d+ z8 H& e9 c0 @< >Text1.Text = tj</FONT></P>
< >
哥哥姐姐们帮帮忙~
( P% t5 t) P0 ~我用的office的acce数据库~想让csxx表中的N条记录相加~
) ?$ J. v& K3 ^, w, |' M: A但随便怎么试也不行~~~请各位好心人帮我改改~</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>