<b> 1 x' H l6 N7 O- t # ]' M) @3 w& F$ _; o</b>Dim rs_csxx As New ADODB.Recordset$ y0 o- ?5 ^; E
Dim sql As String ; T- \3 g2 h0 c( LDim tj As Integer8 K! k9 ?( D& N; g+ x4 b
Dim lq As Boolean + B! k4 s, `! ^+ J4 @0 B
2 _% L6 G* Y) y/ A6 p3 Y' m1 z$ z1 k$ W5 _5 A( }2 L! S# C
< >sql = "select * from xxxz" ; f# u+ U/ i, U" frs_csxx.CursorLocation = adUseClient' I( o4 t* O' T a8 k$ T
rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>- ^/ [0 I4 u z9 N. R
< >Do While lq = True ; A0 X \+ h8 Q2 g8 o" Jtj = tj + rs_csxx.Fields(4)2 r# ^: @. c2 ~, b9 U
rs_csxx.MoveNext' v* e0 u' N$ _ f6 W* ]: h; p
If rs_csxx.EOF = True Then lq = False & l' Z, }4 Y6 s6 N1 OLoop</FONT></P>& ?9 P: v K$ f% f* a' ~" N) \
< >Text1.Text = tj</FONT></P> . o4 K9 W, h; D5 F) R$ a5 ?, c; o< > 6 e& B' e. K( S, Y' j哥哥姐姐们帮帮忙~ / |4 M6 y* a, y J& z我用的office的acce数据库~想让csxx表中的N条记录相加~6 r$ N5 M+ \2 y
但随便怎么试也不行~~~请各位好心人帮我改改~</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
