-- 作者:建筑人生
-- 发布时间:2014/12/26 21:19:00
-- 关联表汇总
Dim dr As DataRow = e.DataRow With Tables("入库单.明细表") If dr.IsNull("数量") OrElse dr.IsNull("单价") Then \'如果数量或单价为空 dr("金额") = Nothing Else dr("金额") = dr("数量") * dr("单价") End If .Cols("数量").GrandTotal = True \'指定要合计的列 .Cols("金额").GrandTotal = True .GrandTotal = True \'显示合计模式 End With
\'Tables("入库单").Cols("金额")=0
以上关联用ID号,现在Tables("入库单").Cols("金额")= 明细表的汇总金额要怎么写代码 此主题相关图片如下:001.jpg
[此贴子已经被作者于2014-12-26 21:20:25编辑过]
|