求解关于跨表条件更新选择相关数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.DataCol.Name = "位置选择" Then
    If e.NewValue Is Nothing Then
        e.DataRow("参数1") = Nothing
        e.DataRow("参数2") = Nothing
        e.DataRow("参数3") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("表A").Find("[位置] ='" & e.NewValue & "'" )
        If dr IsNot Nothing
            If e.newvalue = "A" Then
                e.DataRow("参数1") = dr("A1")
                e.DataRow("参数2") = dr("A3")
                e.DataRow("参数3") = dr("A5")
            ElseIf e.newvalue = "B" Then
                e.DataRow("参数1") = dr("A2")
                e.DataRow("参数2") = dr("A4")
                e.DataRow("参数3") = dr("A6")
            End If
        End If
    End If
End If

主题：求解关于跨表条件更新选择相关数据