If e.DataCol.Name = "数量" Or e.DataCol.Name = "单价" Then '如果更改的数量列或单价列 '否则从身份证号码列中提取出生日期 e.DataRow("金额") =e.DataRow("数量")*e.DataRow("单价") Dim Amount As Double
if Forms("销售单").Opened then Amount=Tables("销售单_table1").Compute("Sum(金额)") Forms("销售单").Controls("Label8").text=cumoney(Amount)+" " & Amount
加好友 
发短信
Post By：2014/5/29 14:19:00 [显示全部帖子]
