方法一: '原油流量计总数计算Set conn = New ADODB.Connection    conn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\scsjk\chanpin.mdb"    conn.OpenSet Rs = New ADODB.Recordset    Rs.Open "select * from yuanyou", conn, adOpenStatic, adLockOptimistic  Dim total As Double  Dim totalliul As Double  totalliul = bcrb(10).Text      total = 0Do Until Rs.EOF total = Rs.Fields(2) + total Rs.MoveNextLoopRsscyuanyou.Fields(4) = total + totalliul bcrb(30).Text = Rsscyuanyou.Fields(4) Rsscyuanyou为数据表yuanyou数据源 rs为select数据源   方法二: Dim rs As ADODB.Recordsetrs.Open "select 累计 from yuanyou", conn, adOpenDynamic, adLockOptimisticDim sum As DoubleWhile Not (rs.EOF)    sum = sum + rs!累计    rs.MoveNextWendtext1 = sum

评论