VB小问题!!哥哥姐姐快来帮帮小弟!十万火急!!!
<b></b>Dim rs_csxx As New ADODB.Recordset
Dim sql As String
Dim tj As Integer
Dim lq As Boolean
<P >sql = "select * from xxxz"
rs_csxx.CursorLocation = adUseClient
rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
<P >Do While lq = True
tj = tj + rs_csxx.Fields(4)
rs_csxx.MoveNext
If rs_csxx.EOF = True Then lq = False
Loop</FONT></P>
<P >Text1.Text = tj</FONT></P>
<P >
哥哥姐姐们帮帮忙~
我用的office的acce数据库~想让csxx表中的N条记录相加~
但随便怎么试也不行~~~请各位好心人帮我改改~</FONT></P> 为什么不直接用while呢？ <P>为什么那条SQL语句不设为：sql="Select sum(要计算的字段) from xxxz"呢？</P><P>还有变量lp开始时是不是设为TRUE，如果不是那就不会执行循环啦</P><P>你这样写还不如直接写成：</P><P>Do while rs_csxx.EOF<>True</P><P>...</P><P>Loop</P>
页:
[1]