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

myhunterli

<b>
! R, m, a& E7 r$ ]4 J; \
; p0 m, w1 d1 d" m$ @" e# ^</b>Dim rs_csxx As New ADODB.Recordset
Dim sql As String
Dim tj As Integer
0 p) [  ?5 b- e' UDim lq As Boolean

8 K, E) }6 ~- Z" r! ]
< >sql = "select * from xxxz"
rs_csxx.CursorLocation = adUseClient
rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
1 d: R& T3 w) N4 x- |! w< >Do While lq = True
; R, W. B7 `- E9 A- G0 K7 Ntj = tj + rs_csxx.Fields(4)
rs_csxx.MoveNext
! `0 c$ [9 G  T8 t, g( k0 eIf rs_csxx.EOF = True Then lq = False
Loop</FONT></P>
< >Text1.Text = tj</FONT></P>
( s$ ~: R' X7 i9 @7 G- v' J0 ^< >
+ r  I, D0 j8 t) J" R( L6 H8 c8 @哥哥姐姐们帮帮忙~
3 L, s0 s5 r0 @; W9 m+ ]: v# w我用的office的acce数据库~想让csxx表中的N条记录相加~
9 c: {+ S8 r3 m- y但随便怎么试也不行~~~请各位好心人帮我改改~</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>