各位老师新年好！！

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

\'填充系数
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

改变思路，无需循环：

数据表DataColChanged事件代码：

Dim s As String =  left(e.DataCol.name,2)
If s = "职务"
    Dim dr As DataRow
    dr = DataTables("设置").Find("职务 = \'" & e.DataRow(e.DataCol.name) & "\'")
    If dr IsNot Nothing
        e.DataRow("系数" & e.DataCol.name.Replace(s,"")) = dr("系数")
    End If
End If

【刷新】按钮代码代码去掉填充系数部分即可，其他也可以如法炮制，留给您自己做作业。

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

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