主题：[求助]菜鸟求助跨表数据调用

发放工资表，DataColChanged事件，写代码

Select Case e.DataCol.name
    Case "员工职级_等", "员工职级_级"
        If e.DataRow("员工职级_等") <> Nothing AndAlso e.DataRow("员工职级_级") <> Nothing Then
            Dim dic As new Dictionary(of String, DataRow)
            For Each dr As DataRow In DataTables("工资等级表").Select("职等 = '" & e.DataRow("员工职级_等") & "'")
                dic.Add(dr("类别"), dr)
            Next
           
            Dim s1 = dic("岗位固定工资")("职级_" & e.DataRow("员工职级_级"))
            Dim s2 = dic("岗位绩效工资")("职级_" & e.DataRow("员工职级_级"))
            Dim s3 = dic("月薪")("职级_" & e.DataRow("员工职级_级"))
            msgbox(s1)
            msgbox(s2)
            msgbox(s3)
        End If
End Select

弹出的数据，不是你需要的数据？

如果弹出了正确数据，赋值到你各个列去即可，如

            Dim s1 = dic("岗位固定工资")("职级_" & e.DataRow("员工职级_级"))

            e.DataRow("某列") = s1
            'Dim s2 = dic("岗位绩效工资")("职级_" & e.DataRow("员工职级_级"))
            'Dim s3 = dic("月薪")("职级_" & e.DataRow("员工职级_级"))
            'msgbox(s1)
            'msgbox(s2)
            'msgbox(s3)