标题：[求助]能否用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
希望用For...Next语句，将一至十二月的系数填充到对应单元格，上述代码如何修改，请各位老师帮助指教，谢谢！！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目177.table |
For Each dr1 As DataRow In DataTables("数据").DataRows
For i As Integer = 1 To 12
If dr1.IsNull("职务_" & i) Then
dr1("系数_" & i) = Nothing
Else
pr = DataTables("设置").Find("职务 = '"& dr1("职务_" & i) & "'")
If pr IsNot Nothing Then
dr1("系数_" & i) = pr("系数")
Else
dr1("系数_" & i) = Nothing
End If
End If
Next
Next
改变思路，无需循环：
数据表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 |
）