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

myhunterli

<b>

' u5 s7 s* H: d- ?, q3 Q</b>Dim rs_csxx As New ADODB.Recordset
Dim sql As String
Dim tj As Integer
% H0 D" B0 p, @8 E0 [Dim lq As Boolean
, i$ B% y' w* U- N

/ e3 \, e# G: ]2 F< >sql = "select * from xxxz"
rs_csxx.CursorLocation = adUseClient
5 z% Z8 C; E: ?1 y! a5 A! \8 v  ers_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
# o& w) f% s* Q: H# c< >Do While lq = True
tj = tj + rs_csxx.Fields(4)
: l! h* h4 b# H, Mrs_csxx.MoveNext
If rs_csxx.EOF = True Then lq = False
( v; _7 ~+ G6 ]% I0 H6 `1 SLoop</FONT></P>
< >Text1.Text = tj</FONT></P>
< >
: U% h: w: O, [哥哥姐姐们帮帮忙~
: O8 b7 B$ }% ^- V9 y我用的office的acce数据库~想让csxx表中的N条记录相加~
. T! q, N! I6 y7 F# b但随便怎么试也不行~~~请各位好心人帮我改改~</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>