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

myhunterli

<b>

, _& O$ K2 \, ?4 u% p9 h</b>Dim rs_csxx As New ADODB.Recordset
Dim sql As String
/ A9 h) R( `# k+ ^Dim tj As Integer
0 ^1 ^9 v' d+ w! e+ R3 h3 wDim lq As Boolean

+ v4 i1 n/ t  J9 H
* M8 Y* k: x& X. `< >sql = "select * from xxxz"
: ~, M: D3 k! y9 p+ |' M- nrs_csxx.CursorLocation = adUseClient
5 Z% F/ W6 H2 y( @rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
: u& T4 L! F6 x. ~5 l< >Do While lq = True
tj = tj + rs_csxx.Fields(4)
8 S( ~/ u. ?/ |' o: Z) v5 W' I4 Lrs_csxx.MoveNext
5 }7 D; Y; t+ X- o4 J' [7 y, ~If rs_csxx.EOF = True Then lq = False
8 ?' H4 `) j: f6 ~Loop</FONT></P>
< >Text1.Text = tj</FONT></P>
2 j9 u: O* z0 M+ p  d) ?& Y, o< >
* w$ J' w0 ?4 w. z0 a- j哥哥姐姐们帮帮忙~
我用的office的acce数据库~想让csxx表中的N条记录相加~
1 w& a- a8 I5 T; u但随便怎么试也不行~~~请各位好心人帮我改改~</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>