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

myhunterli

<b>
  l; X- P! m6 [6 }& m2 p
</b>Dim rs_csxx As New ADODB.Recordset
8 Y+ M8 S; I5 _2 j, D4 UDim sql As String
Dim tj As Integer
7 R' G6 ?" K. I$ `& Q4 ]Dim lq As Boolean
) X% k' Q0 g3 F3 ]! W
6 n8 I( y/ B$ O0 Z+ B: h4 ~. l% ]
< >sql = "select * from xxxz"
rs_csxx.CursorLocation = adUseClient
rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
< >Do While lq = True
: j  Z$ T9 b4 b' q* u, ^, X* |1 @! rtj = tj + rs_csxx.Fields(4)
; E. l$ L, X/ C2 g2 a7 mrs_csxx.MoveNext
9 D/ l, R5 n$ `7 Y5 cIf rs_csxx.EOF = True Then lq = False
Loop</FONT></P>
< >Text1.Text = tj</FONT></P>
9 M; g( j& t4 u- W+ h+ y, b9 p< >
哥哥姐姐们帮帮忙~
2 i9 E; l  W) A' N  y. S& X我用的office的acce数据库~想让csxx表中的N条记录相加~
9 {+ |8 T  n1 b7 g0 y1 H但随便怎么试也不行~~~请各位好心人帮我改改~</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>