主题：求级别工资计算代码

关键事找到『级别工资』表里的对应于『对应工资』表中的【工作年限1】列名，如“工作年限_38-39年”列：

Dim gz As String
Dim r As Row = Tables("对应工资").current
For i As Integer = 2 To Tables("级别工资").cols.count -1

    If Tables("级别工资").cols(i).name.replace("工作年限_","") = r("工作年限1")
        gz = Tables("级别工资").cols(i).name
        Exit For
    End If
Next

其他的就简单了 。