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

myhunterli

<b>

' p' C* z& m3 K</b>Dim rs_csxx As New ADODB.Recordset
( _& z7 H* G( l1 v+ z' H/ mDim sql As String
1 s) ^6 L* a& m" w8 X  GDim tj As Integer
- w+ e8 g6 U) k7 B; ]! P4 `Dim lq As Boolean
) Q% R: n2 X! D7 \" B+ t; i5 H' ~

! J0 P% U, [; o. H/ T3 R< >sql = "select * from xxxz"
  l; T' `3 {3 V& y9 x+ j: h9 z5 trs_csxx.CursorLocation = adUseClient
rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
* S9 Z7 u4 k, [< >Do While lq = True
5 o2 T6 `. j/ f) G6 i- H6 b! Utj = tj + rs_csxx.Fields(4)
rs_csxx.MoveNext
If rs_csxx.EOF = True Then lq = False
Loop</FONT></P>
< >Text1.Text = tj</FONT></P>
  i5 E8 t9 U. f7 p# m5 {  k< >
' Q( K* f( s3 }% n9 A/ S, y哥哥姐姐们帮帮忙~
我用的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>