If e.DataCol.Name = "分段" Then Dim Dr As DataRow = e.Datarow.GetParentRow("电缆仓") If Dr IsNot Nothing Then DataTables("电缆仓").DataCols("分段").Recalc(dr) End if End if
却没有看到在电缆仓的分段列,还有计算代码:
Dim Dr As DataRow = DataTables("电缆仓明细").Find("pid = " & e.DataRow("_Identify"),"_Identify Desc") If Dr IsNot Nothing Then e.Datarow("分段") = dr("分段") End If