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

myhunterli

<b>

6 }' J3 `8 [4 `6 E2 s: ^4 I</b>Dim rs_csxx As New ADODB.Recordset
Dim sql As String
2 |( P5 Z! ^4 |5 y: z! n$ }  tDim tj As Integer
  t$ q4 c! v6 E5 N/ ODim lq As Boolean
; N; v6 q  F1 _) ^2 L! A3 O

< >sql = "select * from xxxz"
rs_csxx.CursorLocation = adUseClient
rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
< >Do While lq = True
tj = tj + rs_csxx.Fields(4)
rs_csxx.MoveNext
7 G$ j+ O; B# c5 Y* S. uIf rs_csxx.EOF = True Then lq = False
4 X3 ]% _7 ^" H+ k) [Loop</FONT></P>
  s' m2 k; Y. ?/ c3 r< >Text1.Text = tj</FONT></P>
< >
8 l( K; d' z6 }- a2 I! T哥哥姐姐们帮帮忙~
我用的office的acce数据库~想让csxx表中的N条记录相加~
. F; x; E5 p* I( X8 V0 A! c但随便怎么试也不行~~~请各位好心人帮我改改~</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>