跨表引用不能自动更新，只能重置，错在哪了？
在完成明细表中跨表引用进度计划表中计划开始列(有配合)
Select Case e.DataCol.Name
Case "单位工程","项目ID"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
If dr.IsNull("单位工程") OrElse dr.IsNull("项目ID") Then
dr("计划开始") = Nothing
Else
Dim filter As String
filter = "单位工程= '" & dr("单位工程") & "' And 项目ID= '" & dr("项目ID") & "'"
pr = DataTables("进度计划").Find(filter)'此为工料单价表
If pr IsNot Nothing Then
dr("计划开始") = pr("计划开始")
End If
End If
End Select
'跨表引用进度计划表中计划完成列(有配合)
Select Case e.DataCol.Name
Case "单位工程","项目ID"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
If dr.IsNull("单位工程") OrElse dr.IsNull("项目ID") Then
dr("计划完成") = Nothing
Else
Dim filter As String
filter = "单位工程= '" & dr("单位工程") & "' And 项目ID= '" & dr("项目ID") & "'"
pr = DataTables("进度计划").Find(filter)'此为工料单价表
If pr IsNot Nothing Then
dr("计划完成") = pr("计划完成")
End If
End If
End Select
在进度计划表中
''配合完成明细表跨表引用计划开始计划完成
Select Case e.DataCol.Name
Case "计划开始","计划完成"
' Dim Filter As
String = "[清单ID] = '" & e.DataRow("清单ID") &
"'"
Dim Filter As String = "[单位工程] = '" & e.DataRow("单位工程")
& "' and [项目ID] = '"
& e.DataRow("项目ID")
& "'"
DataTables("完成明细").ReplaceFor(e.DataCol.Name, e.NewValue, Filter)
End Select
[此贴子已经被作者于2017/11/10 16:07:54编辑过]
加好友 
发短信
Post By：2017/11/10 16:07:00 [只看该作者]
