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

myhunterli

<b>
# b' _5 P  q6 U  Z
</b>Dim rs_csxx As New ADODB.Recordset
0 ]$ u& n. Q3 Y: T5 X2 }5 zDim sql As String
' L9 z6 r1 F6 L$ v) N/ Y3 }: ^Dim tj As Integer
* x1 g4 ?3 h5 WDim lq As Boolean
/ e6 u$ X) ~# U+ o. r5 K, E

( w) l+ ~8 W- X: r4 H' B* ~< >sql = "select * from xxxz"
rs_csxx.CursorLocation = adUseClient
' K" n5 F/ M) l* f0 H- }rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
< >Do While lq = True
! s: T5 @8 c9 Q0 s. Htj = tj + rs_csxx.Fields(4)
8 g" W' f6 h1 q& u- S5 f# @rs_csxx.MoveNext
" j- U. w( M9 sIf rs_csxx.EOF = True Then lq = False
5 ~# G$ S4 ^; w/ rLoop</FONT></P>
< >Text1.Text = tj</FONT></P>
( r* `$ j  q' |% b, S< >
7 H6 o& J; _! x7 L哥哥姐姐们帮帮忙~
3 {0 }& L  W9 N# G) z我用的office的acce数据库~想让csxx表中的N条记录相加~
# O: |( O1 }1 f; D- {: U' [; l但随便怎么试也不行~~~请各位好心人帮我改改~</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>