在线时间 0 小时 最后登录 2010-9-10 注册时间 2004-12-18 听众数 2 收听数 0 能力 0 分 体力 66 点 威望 0 点 阅读权限 20 积分 81 相册 0 日志 0 记录 0 帖子 116 主题 2 精华 0 分享 0 好友 0
升级 80%
该用户从未签到
<b>
7 r& T! s, a6 t4 S+ V5 [6 [6 D ) P t: J) h, A% L7 N/ q3 D
</b>Dim rs_csxx As New ADODB.Recordset3 ~; Z3 P) X* s
Dim sql As String* A) e; K' Z; E. J
Dim tj As Integer
+ C9 v- |( `6 C l Dim lq As Boolean
5 m% K. _7 G N1 N) J. ?
" p5 }: A7 r' G: S7 ? ) F9 d$ K/ e! ~( s6 G
< >sql = "select * from xxxz"
5 v1 R4 Z6 l1 w- c# ~5 R1 z/ @ rs_csxx.CursorLocation = adUseClient" z5 Q; _. ~8 q- _! K" J0 ~ u4 B
rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>; y' U l4 K- n/ a0 \
< >Do While lq = True9 A9 v0 [2 g. `$ H
tj = tj + rs_csxx.Fields(4)
( j4 I( c/ @4 V5 E rs_csxx.MoveNext
) X, j5 M; Y$ i. I+ i" D If rs_csxx.EOF = True Then lq = False( m$ _4 {' K( z# p. Z1 e W( _. h
Loop</FONT></P>
- [! Y- x! G' }. R; _8 V+ O < >Text1.Text = tj</FONT></P>/ S. l7 v$ {3 f7 B. p
< >
5 h5 i+ o7 z7 n9 X m 哥哥姐姐们帮帮忙~
% t) x1 `) H* ]2 ^6 Z6 q$ i 我用的office的acce数据库~想让csxx表中的N条记录相加~
. @2 T9 w" S7 T9 u. u7 f 但随便怎么试也不行~~~请各位好心人帮我改改~</FONT></P>
zan