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

myhunterli

<b>

7 @9 i# O6 b+ ^</b>Dim rs_csxx As New ADODB.Recordset
9 Y; `) c  [! v3 ZDim sql As String
: A0 I: x. A: d4 M: Q# Q- n% ZDim tj As Integer
Dim lq As Boolean
2 U, ~( R# x% {" n9 k/ Z0 F
8 M& r. b( a, H, f2 K; r
< >sql = "select * from xxxz"
# [, V5 F& T" H3 G( o" Drs_csxx.CursorLocation = adUseClient
rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
/ n& |* l* D. }$ B* I" y< >Do While lq = True
  f$ G! ]( S/ B+ @- t; P8 T0 ttj = tj + rs_csxx.Fields(4)
( \: f# B0 l, p5 prs_csxx.MoveNext
8 h. B" u$ ~# l% c: |! W( bIf rs_csxx.EOF = True Then lq = False
: B3 p7 t5 h! W8 A) U% R4 s; oLoop</FONT></P>
0 }$ N! l" }$ }) h< >Text1.Text = tj</FONT></P>
# ?3 D% `$ _8 Z6 P< >
哥哥姐姐们帮帮忙~
我用的office的acce数据库~想让csxx表中的N条记录相加~
. O/ g) Y' N# g5 \, C. B但随便怎么试也不行~~~请各位好心人帮我改改~</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>