主题：[求助]跨表条件计算问题

A、B两表，假如B表第二列是AA，那么第三列等于A表AA对应的第二列14。

 表B，Datacolchanged事件

 

If e.DataCol.Name = "第二列" Then
    Dim fdr As DataRow = DataTables("表A").Find("第一列 = '" & e.DataRow("第二列") & "'")
    If fdr IsNot Nothing Then
        e.DataRow("第三列") = fdr("第二列")
    Else
        e.DataRow("第三列") = Nothing
    End If
End If

 

 http://www.foxtable.com/help/topics/1451.htm

 

谢版主，但没解决问题。

 那规律是什么，获取表A的值后，然后乘以多少？

If e.DataCol.Name = "第二列" Then
    Dim fdr As DataRow = DataTables("表A").Find("第一列 = '" & e.DataRow("第二列") & "'")
    If fdr IsNot Nothing Then
       
        If e.DataRow("第二列") = "AA" Then
            e.DataRow("第三列") = fdr("第二列") * 1.5
        Else If e.DataRow("第二列") = "BB" Then
            e.DataRow("第三列") = fdr("第二列") * 1.5
        Else If e.DataRow("第二列") = "CC" Then
            e.DataRow("第三列") = fdr("第二列") * 0.5
        End If
       
    Else
        e.DataRow("第三列") = Nothing
    End If
End If

 

老大，不想用事件，用按钮的代码能行吗？

 For Each dr As DataRow In DataTables("表B").DataRows
    Dim fdr As DataRow = DataTables("表A").Find("第一列 = '" & dr("第二列") & "'")
    If fdr IsNot Nothing Then     
        If dr("第二列") = "AA" Then
            dr("第三列") = fdr("第二列") * 1.5
        Else If dr("第二列") = "BB" Then
            dr("第三列") = fdr("第二列") * 1.5
        Else If dr("第二列") = "CC" Then
            dr("第三列") = fdr("第二列") * 0.5
        End If
       
    Else
        dr("第三列") = Nothing
    End If
Next

强啊