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

myhunterli

<b>
' r0 }( U7 ]/ a7 F- V
+ S: ?" v! n; E2 X" B7 l- s: ]% u</b>Dim rs_csxx As New ADODB.Recordset
  y. g; s- ^. c+ d1 F8 VDim sql As String
( X$ ~$ U' z0 k( U' M- n5 GDim tj As Integer
" U0 G; r6 K3 ?2 Y  N+ f! Y7 LDim lq As Boolean

: @) t- H+ Y: l* I0 Z5 q
4 O* e, d& K3 y+ }2 R; C< >sql = "select * from xxxz"
) K( D  g8 U- F% }, O# ars_csxx.CursorLocation = adUseClient
rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
< >Do While lq = True
tj = tj + rs_csxx.Fields(4)
rs_csxx.MoveNext
If rs_csxx.EOF = True Then lq = False
Loop</FONT></P>
1 N2 O1 f7 ]2 K5 i< >Text1.Text = tj</FONT></P>
6 Z' i7 S1 O: y, P$ d) d$ o* h9 n) B< >
哥哥姐姐们帮帮忙~
我用的office的acce数据库~想让csxx表中的N条记录相加~
但随便怎么试也不行~~~请各位好心人帮我改改~</FONT></P>

blueriver

<>为什么那条SQL语句不设为：sql="Select sum(要计算的字段) from xxxz"呢？</P><>还有变量lp开始时是不是设为TRUE，如果不是那就不会执行循环啦</P><>你这样写还不如直接写成：</P><>Do while rs_csxx.EOF&lt;&gt;True</P><>...</P><>Loop</P>

ilikenba

为什么不直接用while呢？