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

myhunterli

<b>
* C! [1 y$ n0 O+ q
7 t) L  S% f( I. R</b>Dim rs_csxx As New ADODB.Recordset
Dim sql As String
/ e. `9 y! u7 {2 Z, }+ j  Q7 mDim tj As Integer
" B2 U4 {' s8 LDim lq As Boolean


< >sql = "select * from xxxz"
2 _" W0 Z% X9 grs_csxx.CursorLocation = adUseClient
rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
+ x5 G7 _+ d( E+ }% u! s; |< >Do While lq = True
tj = tj + rs_csxx.Fields(4)
rs_csxx.MoveNext
# ~: E% A" W! u1 k% ~If rs_csxx.EOF = True Then lq = False
. z5 q7 Y; R6 i/ K! qLoop</FONT></P>
< >Text1.Text = tj</FONT></P>
< >
哥哥姐姐们帮帮忙~
0 k8 g' d8 p; f0 r, m& M$ P我用的office的acce数据库~想让csxx表中的N条记录相加~
/ [9 |% P/ r. j) t) k& Q$ u2 c6 P但随便怎么试也不行~~~请各位好心人帮我改改~</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>