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

myhunterli

<b>
7 r& T! s, a6 t4 S+ V5 [6 [6 D
</b>Dim rs_csxx As New ADODB.Recordset
Dim sql As String
Dim tj As Integer
+ C9 v- |( `6 C  lDim lq As Boolean
5 m% K. _7 G  N1 N) J. ?
" p5 }: A7 r' G: S7 ?
< >sql = "select * from xxxz"
5 v1 R4 Z6 l1 w- c# ~5 R1 z/ @rs_csxx.CursorLocation = adUseClient
rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
< >Do While lq = True
tj = tj + rs_csxx.Fields(4)
( j4 I( c/ @4 V5 Ers_csxx.MoveNext
) X, j5 M; Y$ i. I+ i" DIf rs_csxx.EOF = True Then lq = False
Loop</FONT></P>
- [! Y- x! G' }. R; _8 V+ O< >Text1.Text = tj</FONT></P>
< >
5 h5 i+ o7 z7 n9 X  m哥哥姐姐们帮帮忙~
% t) x1 `) H* ]2 ^6 Z6 q$ i我用的office的acce数据库~想让csxx表中的N条记录相加~
. @2 T9 w" S7 T9 u. u7 f但随便怎么试也不行~~~请各位好心人帮我改改~</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>