我要用VB做一个累计金额，字段为:数量，单价，总金额，累计金额
怎么做啊！
只显示出总金额<累计金额30%的数据
如：第一笔为10 那麼第一笔的累计金额就等於10
第二笔为50那麼第二笔的累计金额就等於60
依此類推

可以啊你這是兩個表啊忘記說了
我的兩個表是
a1 left join b1 on a1.id=b1.id
金額和總金額是我建立的，但是數量單價，是以前兩個表里面有的怎么做

[[it] 本帖最后由 jxyga111 于 2008-7-18 15:41 编辑 [/it]]

insert into t_cgamt select b.001,b.002,b.004,b.005,b.006,b.007,a.017,amt=007 * 017,ljamt=0  from a LEFT JOIN b ON a.001=b.001 AND
a.002=b.002 WHERE left(b.002,8) between '" & Text1.Text & "' and '" & Text2.Text & "'"

001單別，002單號，004品號，005品中，006規格，007數量，017金額，AMT總金額,LJAMT累計總金額
總金額=數量* 單價
但是累計金額我卻寫不出來

[[it] 本帖最后由 jxyga111 于 2008-7-18 16:06 编辑 [/it]]

insert into t_cgamt select b.001,b.002,b.004,b.005,b.006,b.007,a.017,amt=007 * 017,ljamt=0  from a LEFT JOIN b ON a.001=b.001 AND
a.002=b.002 WHERE left(b.002,8) between '" & Text1.Text & "' and '" & Text2.Text & "'"

001單別，002單號，004品號，005品中，006規格，007數量，017金額，AMT總金額,LJAMT累計總金額
總金額=數量* 單價
但是累計金額我卻寫不出來

WHERE C.002<=b.002)
你這句是不是寫錯了，002是單號，單號都不等于、單號

先謝謝你的教導，
但是累計金額比總金額還要小，怎么回事，謝謝

單別 單號          品號       品名     規格   數量    單價     總金額   累計金額
3003 20080612001  10012       布格      2*1     5      10       50         求出
3003 20080613002  10121       布條       2*3    10     10       100        求出
如果對照以上兩條數據累計金額應為
50
150

[[it] 本帖最后由 jxyga111 于 2008-7-18 16:36 编辑 [/it]]

謝謝

不是數據出錯而是結果出錯，累計金額應該比總金額多吧

明天可以嗎？Dim i As Integer
Private Sub Command1_Click()
If Text1.Text = "" And Text2.Text = "" Then
    MsgBox "琩高兵ンぃ???!"
    Exit Sub
Else
    cn.Execute " delete from t_cgamt  where left(TH002,8) between '" & Text1.Text & "' and '" & Text2.Text & "'"
    strquery = "insert into t_cgamt select TH001,TH002,TH004,TH005,TH006,TH007,TG017,MB064,amt=TH007 * TG017,ljamt=0  from PURTG LEFT JOIN PURTH ON TG001=TH001 AND TG002=TH002 LEFT JOIN INVMB ON TH004=MB001 WHERE left(TH002,8) between '" & Text1.Text & "' and '" & Text2.Text & "'"
    = 0
    cn.Execute strquery


    Set rs = Nothing
    rs.CursorLocation = adUseClient
    rs.Open "select * from t_cgamt where left(TH002,8) between '" & Text1.Text & "' and '" & Text2.Text & "'", cn, 3, 2
   
        MSFcase.Rows = 2
        For j = 0 To MSFcase.Cols - 1
            MSFcase.TextMatrix(MSFcase.Row, j) = ""
        Next
'        Set RS1 = Nothing
'        RS1.Open "select TH001,TH002,TH004,TH005,TH006,TH007,TG017,MB064,amt=TH007 * TG017,ljamt=0  from PURTG LEFT JOIN PURTH ON TG001=TH001 AND TG002=TH002 LEFT JOIN INVMB ON TH004=MB001 WHERE left(TH002,8) between '" & Text1.Text & "' and '" & Text2.Text & "'", cn, 3, 2
'        Call AddRecordtoMSFcase(MSFcase, RS1)
        '仓??肂=羆?肂+羆?肂
        
            MSFcase.TextMatrix(1, 9) = Round(Val(MSFcase.TextMatrix(MSFcase.Row, 8)) + Val(MSFcase.TextMatrix(MSFcase.Row, 8)), 2)

            For i = 1 To MSFcase.Rows - 1
                MSFcase.TextMatrix(MSFcase.Rows - 1, 9) = Round(Val(MSFcase.TextMatrix(MSFcase.Rows - 1, 8)) + Val(MSFcase.TextMatrix(MSFcase.Rows - 1, 8)), 2)
                MSFcase.TextMatrix(MSFcase.Rows - 1, 9) = MSFcase.TextMatrix(MSFcase.Rows - 1, 9) + MSFcase.TextMatrix(MSFcase.Rows - 1, 9)
               
            Next

End If
  If rs.RecordCount >= 1 Then
        Do While Not rs.EOF
            Set xrs = Nothing
            xrs.CursorLocation = adUseClient
            xrs.Open "select TH001,TH002,TH004,TH005,TH006,TH007,TG017,MB064,amt=TH007 * TG017,ljamt=0  from PURTG LEFT JOIN PURTH ON TG001=TH001 AND TG002=TH002 LEFT JOIN INVMB ON TH004=MB001 WHERE left(TH002,8) between '" & Text1.Text & "' and '" & Text2.Text & "'", cn, 3, 2
            If xrs.RecordCount >= 1 Then
                Do While Not xrs.EOF
                    cn.Execute "update t_cgamt set ljamt=" & xrs.Fields(8) & " where left(TH002,8) between '" & Text1.Text & "' and '" & Text2.Text & "'"
                    xrs.MoveNext
                Loop
            End If
End Sub
這是我做的代碼有錯啊麻煩你了