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

2、如果在 《平时考核》表中的“月份_1”中如果填写“好”，则在《平时考核》表中的“月考核奖金_1”中自动引用《平时考核奖金标准》表中对应的“金额”；如果在 《平时考核》表中的“月份_1”中如果填写“良好”，则在《平时考核》表中的“月考核奖金_1”中自动引用《平时考核奖金标准》表中对应的“金额”，“月份_2”…………，以此类推，如何写代码，请指导。谢谢

附系统：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:信阳市人社局工资管理系统_201803070646.zip

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

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