主题：表属性

 加一个判断

If e.DataCol.Name = "数量" Or e.DataCol.Name = "单价"  Then '如果更改的数量列或单价列
    '否则从身份证号码列中提取出生日期
    e.DataRow("金额") =e.DataRow("数量")*e.DataRow("单价")
    If Forms("销售单").Opened Then
        Dim Amount As Double
        Amount=Tables("销售单_table1").Compute("Sum(金额)")
        Forms("销售单").Controls("Label8").text=cumoney(Amount)+"   " & Amount
    End If
End If