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

myhunterli

<b>
2 i6 W% O/ a; a# G. ^* H% T5 L
</b>Dim rs_csxx As New ADODB.Recordset
( n$ F! M+ ?4 Y! |Dim sql As String
Dim tj As Integer
4 h. m, @2 {2 G8 d* m  v/ \Dim lq As Boolean
  k, ~' v! ~, y& f3 Y5 v
5 g3 N( R2 a: }9 `" L# N1 B) @
< >sql = "select * from xxxz"
rs_csxx.CursorLocation = adUseClient
3 x: q' T8 l% ^/ T% x# p& U$ c  L- Mrs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
< >Do While lq = True
- }) ~* R! t- V2 T# z; ~3 ^8 s7 I* Qtj = tj + rs_csxx.Fields(4)
( k% C) r8 |  P; ]rs_csxx.MoveNext
If rs_csxx.EOF = True Then lq = False
$ r( @, F/ N0 |. O; k- S$ h" s0 TLoop</FONT></P>
' d; x6 ~6 t: [0 o< >Text1.Text = tj</FONT></P>
< >
6 h: I+ G0 F$ x/ c哥哥姐姐们帮帮忙~
我用的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>