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

myhunterli

<b>

$ e+ c5 l, j9 f, S. `' v; I' {</b>Dim rs_csxx As New ADODB.Recordset
Dim sql As String
Dim tj As Integer
. B8 `  R  P) I$ ^$ o4 bDim lq As Boolean


< >sql = "select * from xxxz"
rs_csxx.CursorLocation = adUseClient
- p# x$ Y# m% D1 }7 lrs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
! _0 }% \% m: v' e  E, `( A, n$ s< >Do While lq = True
tj = tj + rs_csxx.Fields(4)
rs_csxx.MoveNext
. q8 o  b. k+ n" r/ W# ]If rs_csxx.EOF = True Then lq = False
Loop</FONT></P>
. ~6 i6 X$ }% B$ ~  h< >Text1.Text = tj</FONT></P>
9 D5 \) `3 e7 B% ^< >
  P3 Y' O) m1 X; K; m* C) O哥哥姐姐们帮帮忙~
我用的office的acce数据库~想让csxx表中的N条记录相加~
* A( G1 r) L$ Q  O- a" K但随便怎么试也不行~~~请各位好心人帮我改改~</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>