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

myhunterli

<b>
+ I+ V2 e; N3 i0 O8 v
</b>Dim rs_csxx As New ADODB.Recordset
# o0 d7 F* N* V3 ^4 U4 ?0 i/ vDim sql As String
Dim tj As Integer
1 w9 N5 U/ v; d# `. l; {, y/ ]+ FDim lq As Boolean
! d+ z4 l$ t/ h% k

< >sql = "select * from xxxz"
5 k3 H; I( ~9 m7 ]/ {3 _rs_csxx.CursorLocation = adUseClient
rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
< >Do While lq = True
% C9 w& R! I- {# o! Rtj = tj + rs_csxx.Fields(4)
rs_csxx.MoveNext
If rs_csxx.EOF = True Then lq = False
Loop</FONT></P>
: G& w2 N) p( ^  ~3 e" M< >Text1.Text = tj</FONT></P>
< >
; h$ j; ^0 u3 J8 k1 c) \) E5 Y$ ~哥哥姐姐们帮帮忙~
我用的office的acce数据库~想让csxx表中的N条记录相加~
但随便怎么试也不行~~~请各位好心人帮我改改~</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>