主题：[求助]能否用For...Next语句，实现跨表引用（已解决）

各位老师新年好！！

要求根据数据表的职务与系数的对应关系，将设置表与职务对应的系数填充到数据表对应月份的系数单元格。
一月份的填充代码如下（按钮代码）：

'填充系数
Dim pr As DataRow
For Each dr1 As DataRow In DataTables("数据").DataRows
    If dr1.IsNull("职务_1")  Then
        dr1("系数_1") = Nothing
    Else
        pr = DataTables("设置").Find("职务 = '"& dr1("职务_1")&"'")
        If pr IsNot Nothing Then
            dr1("系数_1") = pr("系数")
        Else
            dr1("系数_1") = Nothing
        End If
    End If
Next

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

点击浏览该文件:管理项目177.table