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

myhunterli

<b>

</b>Dim rs_csxx As New ADODB.Recordset
Dim sql As String
. S' h9 k' k* \& xDim tj As Integer
. T) x: T: A# n( x6 ~( o# XDim lq As Boolean
; x; d3 ]1 v0 x/ P+ g

< >sql = "select * from xxxz"
rs_csxx.CursorLocation = adUseClient
) J$ B% S1 M" }+ i( Y( J2 ors_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
< >Do While lq = True
tj = tj + rs_csxx.Fields(4)
6 ~, |) l/ k) H  J' c- krs_csxx.MoveNext
% R5 L' h8 H  t% ?( RIf rs_csxx.EOF = True Then lq = False
Loop</FONT></P>
1 I- N& n( u+ S< >Text1.Text = tj</FONT></P>
5 b  e/ I6 O+ l/ a7 w2 t< >
哥哥姐姐们帮帮忙~
2 _  c0 h3 Y, S  H) o; J7 N我用的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>