Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
你只看到了电缆仓明细的DataColChanged事件中的代码:
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