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

myhunterli

<b>
7 Z# n! a, }2 U
</b>Dim rs_csxx As New ADODB.Recordset
: C. N! \$ L) p: ~( mDim sql As String
0 \0 C; V- C6 b+ h" ?9 O6 E# Q9 dDim tj As Integer
2 R4 i0 ?4 ?3 ~0 `Dim lq As Boolean
& B9 q, M3 Q# G: W$ R0 `

7 [( j* k. D: j: z< >sql = "select * from xxxz"
rs_csxx.CursorLocation = adUseClient
rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
. W3 b% a8 l- A# E* W$ x; X9 q+ [< >Do While lq = True
& ]3 [- e# q6 f$ G) x4 r/ A; ztj = tj + rs_csxx.Fields(4)
rs_csxx.MoveNext
+ o9 `" W3 K0 A  ZIf rs_csxx.EOF = True Then lq = False
) P/ W9 q4 N) ?- O: HLoop</FONT></P>
< >Text1.Text = tj</FONT></P>
( t6 A; m+ p9 S# v# {' ]' ?! h< >
哥哥姐姐们帮帮忙~
# ?- D: I# j( l, X3 C6 s; V我用的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>