博文
原油流量计总数计算(字段)(2005-11-15 14:03:00)
摘要：方法一:
'原油流量计总数计算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 ......