直接用表达式,好像不行。
表A,DataColChanged
Select Case e.DataCol.Name
Case "关联列"
e.DataRow("长度8米") = DataTables("表B").Compute("Count(长度)","长度 = 8 And 关联列 = '" & e.DataRow("关联列") & "'")
e.DataRow("长度9米") = DataTables("表B").Compute("Count(长度)","长度 = 9 And 关联列 = '" & e.DataRow("关联列") & "'")
e.DataRow("长度10米") = DataTables("表B").Compute("Count(长度)","长度 = 10 And 关联列 = '" & e.DataRow("关联列") & "'")
End Select