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

myhunterli

<b>

3 f9 ^! O; x+ l3 M( u6 z! N</b>Dim rs_csxx As New ADODB.Recordset
4 M0 h/ H$ b7 |: s% lDim sql As String
Dim tj As Integer
Dim lq As Boolean

0 N  o5 l# m" P- e# Q% U
4 ]  e3 q- ?0 T( R. g6 I: I< >sql = "select * from xxxz"
rs_csxx.CursorLocation = adUseClient
: @  I5 X+ k0 |1 vrs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
; @# r! Z2 ?* K0 t0 y, b* ~/ i3 ~1 i< >Do While lq = True
# ?/ p9 ~8 j9 e: ?, q* M' U7 ~tj = tj + rs_csxx.Fields(4)
rs_csxx.MoveNext
; `: L! V0 q' z! i2 w) ]+ }; \If rs_csxx.EOF = True Then lq = False
Loop</FONT></P>
& k. t0 g4 e( T) \% |1 K( j< >Text1.Text = tj</FONT></P>
4 L2 s# J; p  }$ u< >
5 M' O" r% G* W9 \- C0 B哥哥姐姐们帮帮忙~
我用的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>