老师:多列跨表更新,引用的列如果是通过表达式或函数计算的能否引用,如下:
If e.DataCol.Name = "平均含量"
Then
If e.NewValue Is Nothing
Then
e.DataRow("含量1") = Nothing
e.DataRow("含量2") = Nothing
e.DataRow("含量3") =
Nothing
e.DataRow("含量4") = Nothing
Else
Dim dr As
DataRow
dr = DataTables("表1").Find("[平均含量] = '" & e.NewValue & "'")
If dr IsNot
Nothing
e.DataRow("含量1") = dr("含量1")
e.DataRow("含量2") = dr("含量2")
e.DataRow("含量3") = dr("含量3")
e.DataRow("含量4") = dr("含量4")
End
If
End
If
End
If
Select
Case e.DataCol.Name
Case
"含量1","含量2","含量3","含量4"
Dim Filter As
String = "[平均含量] =
'" & e.DataRow("平均含量") & "'"
DataTables("表2").ReplaceFor(e.DataCol.Name,
e.NewValue, Filter)
End
Select
其中:含量1,含量2,含量3,含量4,平均含量都是通过表达式计算出来 的,这样的跨表引用的自动更新,更新不了,有办法没有?