' g1 ~/ q3 L" Y0 R% ]0 t8 V9 L' ?</b>Dim rs_csxx As New ADODB.Recordset9 R9 D9 C. g( t: k* t
Dim sql As String 4 ]. s) z/ j4 m% @7 JDim tj As Integer* D2 A; r2 I/ W: s8 w( N) i
Dim lq As Boolean 0 w2 x6 a, U9 P$ K
<>为什么那条SQL语句不设为:sql="Select sum(要计算的字段) from xxxz"呢?</P><>还有变量lp开始时是不是设为TRUE,如果不是那就不会执行循环啦</P><>你这样写还不如直接写成:</P><>Do while rs_csxx.EOF<>True</P><>...</P><>Loop</P>