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

myhunterli

<b>
( B' U/ g1 c1 J% A  y4 z8 L3 C
0 p* O1 w$ ?  A- ]4 a% i</b>Dim rs_csxx As New ADODB.Recordset
* }$ P5 a* Q5 `: @Dim sql As String
  g; `! w* d- s$ I7 XDim tj As Integer
; D. {& T& U0 r, u8 ]1 a2 sDim lq As Boolean


4 S* I) |! _; ~  f- ^8 \* a; a7 ^$ m< >sql = "select * from xxxz"
. e6 N. u" K6 |! o9 W  u! {9 Xrs_csxx.CursorLocation = adUseClient
rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
< >Do While lq = True
tj = tj + rs_csxx.Fields(4)
rs_csxx.MoveNext
If rs_csxx.EOF = True Then lq = False
+ k' t. N+ c$ u3 _Loop</FONT></P>
< >Text1.Text = tj</FONT></P>
< >
$ o/ [1 k/ j/ O/ f4 p9 U  n, b哥哥姐姐们帮帮忙~
我用的office的acce数据库~想让csxx表中的N条记录相加~
# U5 D* {- C9 [1 a- 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>