在线时间 0 小时 最后登录 2010-9-10 注册时间 2004-12-18 听众数 2 收听数 0 能力 0 分 体力 66 点 威望 0 点 阅读权限 20 积分 81 相册 0 日志 0 记录 0 帖子 116 主题 2 精华 0 分享 0 好友 0
升级 80%
该用户从未签到
<b>5 E. B: J1 L. F5 r' _
7 @9 i# O6 b+ ^ </b>Dim rs_csxx As New ADODB.Recordset
9 Y; `) c [! v3 Z Dim sql As String
: A0 I: x. A: d4 M: Q# Q- n% Z Dim tj As Integer4 \3 s, F s# E! ?( T2 p
Dim lq As Boolean
2 U, ~( R# x% {" n9 k/ Z0 F
8 M& r. b( a, H, f2 K; r # P! V: q9 `, A* R' s
< >sql = "select * from xxxz"
# [, V5 F& T" H3 G( o" D rs_csxx.CursorLocation = adUseClient/ v. n2 m4 q. v
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 t tj = tj + rs_csxx.Fields(4)
( \: f# B0 l, p5 p rs_csxx.MoveNext
8 h. B" u$ ~# l% c: |! W( b If rs_csxx.EOF = True Then lq = False
: B3 p7 t5 h! W8 A) U% R4 s; o Loop</FONT></P>
0 }$ N! l" }$ }) h < >Text1.Text = tj</FONT></P>
# ?3 D% `$ _8 Z6 P < >; \' ~+ n: q+ C% u2 w9 v
哥哥姐姐们帮帮忙~/ P* M; ~' a# }9 D) |
我用的office的acce数据库~想让csxx表中的N条记录相加~
. O/ g) Y' N# g5 \, C. B 但随便怎么试也不行~~~请各位好心人帮我改改~</FONT></P>
zan