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

myhunterli

<b>

  j  X+ `  ^3 N1 O3 A; J</b>Dim rs_csxx As New ADODB.Recordset
' a& t, Q, i0 {Dim sql As String
+ Y: j: q" m0 p7 l9 _" hDim tj As Integer
) u8 H/ _. @# {$ F; o0 c3 IDim lq As Boolean

# H' L/ ^# _/ Q2 g4 G% I
< >sql = "select * from xxxz"
rs_csxx.CursorLocation = adUseClient
rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
. R1 T9 t- z& f8 T, K6 \1 [< >Do While lq = True
tj = tj + rs_csxx.Fields(4)
rs_csxx.MoveNext
7 O8 {# ?. H5 @If rs_csxx.EOF = True Then lq = False
7 R% |# ^1 Z$ n, {5 lLoop</FONT></P>
4 j, t. a* j3 ?" m& @* t" J< >Text1.Text = tj</FONT></P>
6 ]- a" B. f4 n' r+ h' v" M( ]< >
哥哥姐姐们帮帮忙~
我用的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>