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

myhunterli

<b>

! _$ O" Q$ U2 V7 i</b>Dim rs_csxx As New ADODB.Recordset
* U% P0 E/ U4 q9 E! ]Dim sql As String
Dim tj As Integer
9 e0 S' F- K8 e, _7 J5 H5 W% BDim lq As Boolean
, Z9 u9 U+ t' b/ G( I/ z2 a
7 |' F6 O; `' J1 J6 p
< >sql = "select * from xxxz"
( l' I6 Y0 O, n! V7 W3 Vrs_csxx.CursorLocation = adUseClient
) y- H, W& M. s* J+ H) G0 }rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
< >Do While lq = True
tj = tj + rs_csxx.Fields(4)
. B# T; W1 l* t/ j6 M5 {rs_csxx.MoveNext
If rs_csxx.EOF = True Then lq = False
Loop</FONT></P>
< >Text1.Text = tj</FONT></P>
< >
哥哥姐姐们帮帮忙~
我用的office的acce数据库~想让csxx表中的N条记录相加~
9 z8 r$ \! `0 U! `& i6 g但随便怎么试也不行~~~请各位好心人帮我改改~</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>