<b>; I& k/ V s3 p/ I. T4 _5 A
, Y C+ i& t) m2 O
</b>Dim rs_csxx As New ADODB.Recordset2 h6 l0 q! i$ F9 u% x
Dim sql As String9 k8 ^8 B$ Y3 T4 B% `8 v: d6 f! a
Dim tj As Integer 3 _; R1 o' W. x' ]0 _Dim lq As Boolean ' i- u2 D. U+ b7 b- c' N) r! {3 ^& A
3 X! b: e, s1 Z" `: v7 ? . W: O. O* S3 P h) }< >sql = "select * from xxxz" 3 z7 ^/ f3 I3 @( |, {rs_csxx.CursorLocation = adUseClient9 W/ b& l8 g9 ?: s. f S
rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>" P" x3 w, u( a: A3 ]
< >Do While lq = True1 O1 V9 z$ Z" q4 i7 V+ S
tj = tj + rs_csxx.Fields(4) ) {6 M: D8 \6 `" |, ~5 q' Krs_csxx.MoveNext$ n7 N& ?1 A. a/ Z
If rs_csxx.EOF = True Then lq = False . F) e, l( {1 o) Y# N( eLoop</FONT></P>4 Y5 B0 }$ F1 d$ e0 t2 f1 p( _
< >Text1.Text = tj</FONT></P> * J2 h& O- ~4 h< >4 F0 z, { k, m- A7 G f$ R
哥哥姐姐们帮帮忙~ 4 F% w7 \ l. P, K4 I/ Y3 I1 m. g我用的office的acce数据库~想让csxx表中的N条记录相加~* D5 |* [' ]7 F1 u$ U" K
但随便怎么试也不行~~~请各位好心人帮我改改~</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
