主题：关联表汇总

 

 

 

 

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