<b>; k; C+ f/ c2 t8 k" U
0 U C& i+ |* j- T J' G J' x
</b>Dim rs_csxx As New ADODB.Recordset: x0 P1 R+ p. X, W0 W
Dim sql As String, ?4 ^' [( _9 D2 d! l
Dim tj As Integer 8 l3 `" ]& P! |5 C9 z# ?& O- C$ }Dim lq As Boolean 7 T" P9 d7 r8 p' v
2 q. B4 I2 m# Y5 }1 H 0 v+ s0 s0 e$ E5 W8 o& B2 }< >sql = "select * from xxxz" 8 u6 f! j$ D, R1 h/ P) x2 A4 nrs_csxx.CursorLocation = adUseClient1 w# R+ S, f: t) ?% Q& Q& D
rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P> 8 r: |% N# J$ H9 ^! P' v< >Do While lq = True 3 i- _9 e7 v6 T8 {$ Ctj = tj + rs_csxx.Fields(4)6 z8 b$ a8 p; n( W V
rs_csxx.MoveNext) y+ Q& f. K0 b2 R# b0 d$ G' T0 J
If rs_csxx.EOF = True Then lq = False& T4 w& D1 B& p' j
Loop</FONT></P>" V- @3 s# N8 l- O V8 F3 Z0 Q
< >Text1.Text = tj</FONT></P>8 M3 s. x8 g8 ~
< ># z! g2 i- e; N3 q, U0 S
哥哥姐姐们帮帮忙~7 ]4 _0 N, X& n
我用的office的acce数据库~想让csxx表中的N条记录相加~ - _2 ?' q1 }& P" f& i9 f9 z" S6 F但随便怎么试也不行~~~请各位好心人帮我改改~</FONT></P>
<>为什么那条SQL语句不设为：sql="Select sum(要计算的字段) from xxxz"呢？</P><>还有变量lp开始时是不是设为TRUE，如果不是那就不会执行循环啦</P><>你这样写还不如直接写成：</P><>Do while rs_csxx.EOF<>True</P><>...</P><>Loop</P>
IP卡
狗仔卡
发表于 2004-12-18 16:28
>sql = "select * from xxxz"
转播
淘帖
分享
收藏
支持
反对
微信
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
显身卡
发表于 2004-12-19 23:35
