<b> T/ I' i, H( G. v1 r2 f- Y$ `$ W/ ]# J
</b>Dim rs_csxx As New ADODB.Recordset% H) G# g& S3 c
Dim sql As String9 Z, w% @2 D, g* U* [) g1 [& |, j7 h
Dim tj As Integer3 J3 A- ?$ ]% N
Dim lq As Boolean 6 `/ i- ^4 m6 O1 G/ u0 _. I
) B+ C6 K# t u( [- w0 L
; V% h0 v( f% V8 S) k< >sql = "select * from xxxz"6 N: |, N! ^5 R- e
rs_csxx.CursorLocation = adUseClient ) k9 E! [; d9 i7 c- Yrs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>* b) Q, K, W! A6 T% v
< >Do While lq = True7 e# H; s$ E. [. d% k; a5 N6 L
tj = tj + rs_csxx.Fields(4)& p! |4 G) K; W1 {7 T0 L% |
rs_csxx.MoveNext 7 m1 z( H) I# QIf rs_csxx.EOF = True Then lq = False ! g2 Z! { d% w$ W5 R+ ?0 p3 A* \' ?Loop</FONT></P>0 K7 B; E! K$ w5 x
< >Text1.Text = tj</FONT></P> 6 c- H, { ?& o }3 y. l< >( _+ u& v+ J' e+ f5 j. _1 a
哥哥姐姐们帮帮忙~ ' v" c+ O. J! C0 l; _: F+ B我用的office的acce数据库~想让csxx表中的N条记录相加~ ' A5 [, g( K) |- l- `$ D2 G但随便怎么试也不行~~~请各位好心人帮我改改~</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"6 N: |, N! ^5 R- e
转播
淘帖
分享
收藏
支持
反对
微信
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
显身卡
发表于 2004-12-19 23:35
