<b>. n3 J7 w8 ]6 c; U' a& W
/ l0 h: ~8 V4 b: Y6 K0 p0 o
</b>Dim rs_csxx As New ADODB.Recordset - b$ }3 g3 e- O! q E% eDim sql As String' C9 T, h! b9 |7 h, a
Dim tj As Integer- t5 o k3 l( x5 Q
Dim lq As Boolean : J0 P: S1 _# K& c3 m v7 o, l2 D* s' F1 @' }7 Y. V5 S1 h' p
$ s7 Z# K9 x- {, z/ f" O< >sql = "select * from xxxz" f) f# A3 L: E g; a
rs_csxx.CursorLocation = adUseClient( y: o5 Q7 N) z( c4 F$ b7 J
rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P> % \8 X8 Q3 p" T+ |" g9 b< >Do While lq = True 2 m/ K$ e4 p5 v3 x- ?0 u0 Rtj = tj + rs_csxx.Fields(4)& J7 E2 z- G9 f' p2 D; \
rs_csxx.MoveNext& F. x: _1 T7 Q% b" M% w
If rs_csxx.EOF = True Then lq = False( v4 i- U- B9 B g O
Loop</FONT></P>) u4 V# j5 x/ q7 Q2 Y* C2 `( A% n
< >Text1.Text = tj</FONT></P> ) s: f1 [( i6 P4 p6 ]< >9 R2 L( c; w7 T8 L. E' n0 P5 i
哥哥姐姐们帮帮忙~0 n: z. k0 D& ?/ v/ \& P d& B
我用的office的acce数据库~想让csxx表中的N条记录相加~7 q8 k* \1 _9 X& `: y& N6 L
但随便怎么试也不行~~~请各位好心人帮我改改~</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" f) f# A3 L: E g; a
转播
淘帖
分享
收藏
支持
反对
微信
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
显身卡
发表于 2004-12-19 23:35
