公斤数录入dls表,DataColChanged事件代码
If e.DataCol.name = "结算" Dim dr As DataRow = e.DataRow.GetParentrow("发货单") dr("已结算") = e.DataTable.Compute("sum(小计)","结算 = true")End If