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

myhunterli

<b>

  {" p- H8 q: l: O: U</b>Dim rs_csxx As New ADODB.Recordset
Dim sql As String
Dim tj As Integer
Dim lq As Boolean


) h) u5 m( Z7 O; `7 Z< >sql = "select * from xxxz"
rs_csxx.CursorLocation = adUseClient
, y" ~) N+ `( P$ W+ G. M1 Ers_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
< >Do While lq = True
$ w0 P( N; m. W% Etj = tj + rs_csxx.Fields(4)
/ i/ R) E6 t0 L# ~" E; Wrs_csxx.MoveNext
4 }2 X+ O$ H/ ~. |* t- q- t, {1 dIf rs_csxx.EOF = True Then lq = False
Loop</FONT></P>
; S9 X' x  o+ D3 G) L, W1 S' W9 L< >Text1.Text = tj</FONT></P>
7 ^8 Q+ x, B; J2 I< >
. c/ d$ p. f2 c. B& f" K哥哥姐姐们帮帮忙~
# s' _3 ^' f5 K" Q我用的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>