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

myhunterli

<b>
; h* Y, U& ]& F  A. Q( p( p
</b>Dim rs_csxx As New ADODB.Recordset
Dim sql As String
" o3 g0 E  v, kDim tj As Integer
Dim lq As Boolean


, \% V* B8 s( a' }/ X< >sql = "select * from xxxz"
rs_csxx.CursorLocation = adUseClient
rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
< >Do While lq = True
9 B8 d0 a# H4 [# _0 Stj = tj + rs_csxx.Fields(4)
rs_csxx.MoveNext
, B9 a2 ]7 z5 ^& R0 cIf rs_csxx.EOF = True Then lq = False
1 ^# \1 d, w$ ?7 vLoop</FONT></P>
5 @/ V+ o/ t) e3 _8 B+ ^" m- |< >Text1.Text = tj</FONT></P>
$ s8 I4 X  X7 ?: S( q% u7 U< >
1 c5 J9 M2 y' u7 F& H# H2 `5 P6 J5 O' B哥哥姐姐们帮帮忙~
我用的office的acce数据库~想让csxx表中的N条记录相加~
8 V/ Q1 x6 {" l; a4 V( V但随便怎么试也不行~~~请各位好心人帮我改改~</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>