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

myhunterli

<b>

</b>Dim rs_csxx As New ADODB.Recordset
# G/ X$ _* Q$ p- u& sDim sql As String
0 {  J. t0 Q$ n5 d' F) aDim tj As Integer
0 P) ?5 t! [4 H9 x) GDim lq As Boolean
; e* N& C( v( e4 k* t3 {  N

< >sql = "select * from xxxz"
! K2 v  l) _2 F5 c/ V, s. r1 ~  ]) L+ wrs_csxx.CursorLocation = adUseClient
; i& p+ e8 d* F8 e) ^+ J+ q" d( N8 trs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
4 J! n" r& q1 V; V< >Do While lq = True
tj = tj + rs_csxx.Fields(4)
rs_csxx.MoveNext
* S& [2 v' l( a$ c% `( _( a0 bIf rs_csxx.EOF = True Then lq = False
" l6 H% j* v" |( zLoop</FONT></P>
7 r# e/ ~/ `. I" D< >Text1.Text = tj</FONT></P>
+ ~( f, s/ C- V0 ~% z< >
3 m, z7 D( v' _, ~& W4 }哥哥姐姐们帮帮忙~
我用的office的acce数据库~想让csxx表中的N条记录相加~
" v' R- N7 G* V但随便怎么试也不行~~~请各位好心人帮我改改~</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>