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

myhunterli

<b>

</b>Dim rs_csxx As New ADODB.Recordset
Dim sql As String
6 Q: _4 N7 {( `; s6 q( ]" XDim tj As Integer
. f+ C7 g  |% ^' bDim lq As Boolean
. s. a2 h" m& S6 K

, x8 S6 B6 @9 w( {8 J- r< >sql = "select * from xxxz"
9 t3 Q9 k8 T, s2 f) B4 Crs_csxx.CursorLocation = adUseClient
' v+ t/ b; k* Q8 Z, O% W+ i1 G* R8 Yrs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
< >Do While lq = True
9 i- j0 W8 z6 q( utj = tj + rs_csxx.Fields(4)
$ ?! @  m% `$ c6 o* S+ r# G( {rs_csxx.MoveNext
/ e/ X+ g$ |' x4 P% HIf rs_csxx.EOF = True Then lq = False
, d9 H/ p+ u: F4 S* ^Loop</FONT></P>
< >Text1.Text = tj</FONT></P>
< >
哥哥姐姐们帮帮忙~
1 Z) |. s& P: S- y8 u' n! ^我用的office的acce数据库~想让csxx表中的N条记录相加~
但随便怎么试也不行~~~请各位好心人帮我改改~</FONT></P>

blueriver

<>为什么那条SQL语句不设为：sql="Select sum(要计算的字段) from xxxz"呢？</P><>还有变量lp开始时是不是设为TRUE，如果不是那就不会执行循环啦</P><>你这样写还不如直接写成：</P><>Do while rs_csxx.EOF&lt;&gt;True</P><>...</P><>Loop</P>

ilikenba

为什么不直接用while呢？