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