主题：[求助]如何进行多列引用相同的跨表内容

DataColChanged事件

If e.DataCol.name.StartsWith("月份_") Then
    Dim i As String = e.DataCol.name.Replace("月份_", "")
    Dim fdr As DataRow = DataTables("平时考核奖金标准").find("等次 = '" & e.DataRow(e.DataCol.name) & "'")
    If fdr Is Nothing Then
        e.DataRow("月考核奖金_" & i) = Nothing
    Else
        e.DataRow("月考核奖金_" & i) = fdr("金额")
    End If
End If

Select Case e.DataCol.Name
    Case "现任职务","单位性质"
        If  e.DataRow.IsNull("现任职务") OrElse e.DataRow.IsNull("单位性质")  Then
            e.DataRow("补贴_通信补贴") = Nothing
        Else
            If e.DataRow("单位性质") = "事业单位"  Then
                e.DataRow("补贴_通信补贴") = Nothing
            ElseIf e.DataRow("单位性质")="机关" OrElse e.DataRow("单位性质") = "参公" Then
                Dim dr As DataRow
                dr = DataTables("通信费").Find("[现任职务] = '" & e.datarow("现任职务") & "'")
                If dr IsNot Nothing Then
                    e.DataRow("补贴_通信补贴") = dr("金额")
                End If
            End If
        End If
End Select

如果还不行，实例发上来。