主题：同一表格中多个列如何调用另一表格中的数据

同一表格中多个列如何调用另一表格中的数据，如表格1[有产品1]、[产品2]、[产品3]三个列,表格2中有【产品】、【单价】两个列，如何计算表格1中同一行中3个产品单价和

不能实现啊，是不是列名对应不了造成的

If e.DataCol.Name = "产品" Then
    Dim nms() As String = {"产品1","产品2","产品3"}
    If e.NewValue Is Nothing Then
        For Each nm As String In nms
            e.DataRow(nm) = Nothing
        Next
    Else
        Dim dr As DataRow
        dr = DataTables("产品").Find("[产品] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            For Each nm As String In nms
                e.DataRow(nm) = dr(nm)
            Next
        End If
    End If
End If