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，平均含量都是通过表达式计算出来 的，这样的跨表引用的自动更新，更新不了，有办法没有？