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

myhunterli

<b>
. [- A  f% a/ o3 W
</b>Dim rs_csxx As New ADODB.Recordset
0 |2 B3 @6 f! s0 v8 O" f" nDim sql As String
; V; @  @* w% E9 E. VDim tj As Integer
Dim lq As Boolean
# I5 J6 W7 C+ y( j+ [5 C7 C

< >sql = "select * from xxxz"
! F4 _7 j& n9 e- C0 s/ x- t  v: prs_csxx.CursorLocation = adUseClient
, l# V% r6 e( jrs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
8 K2 P3 ^; q5 F< >Do While lq = True
0 B! e) V& ^- L3 i" U: f& Ktj = tj + rs_csxx.Fields(4)
0 S. W* ~( o* B( Lrs_csxx.MoveNext
- q0 m& J! x9 T  ]If rs_csxx.EOF = True Then lq = False
4 z* S3 d$ K* U1 H9 A4 u+ u8 K/ FLoop</FONT></P>
5 b$ I5 l+ F8 F3 ?< >Text1.Text = tj</FONT></P>
; t9 M; g, b) I% ]6 n* \- E; e< >
1 P, f: W7 }) ?! m4 h哥哥姐姐们帮帮忙~
我用的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呢？