主题：筛选过程中，根据不同职务筛选

如图，《计时工资表》 有姓名和职务、岗位工资、保密津贴 列

我设置了一个 "按钮"  从《岗位薪资表》 中 根据“职务”列筛选相应的岗位工资、保密津贴到“计时工资库” 中

代码如下，但是执行不了，是什么问题。

 

'------------------------以下代码根据职称导入岗位工资 保密津贴  竞业限制----------------------------
Dim Filter As String
If .Value IsNull("职务") = False Then
    pause = True
    Dim jn As DataRow
    Dim Filter As String
    Filter = "[职务] = '" & i("职务") & "'"
    jn = DataTables("岗位薪级表").Find(Filter)
    If jn IsNot Nothing Then '如果找到
        If i.IsNull("岗位工资") = False Then
            dr("岗位工资") = jn( i("岗位工资") )
        Else
            MessageBox.Show(i("姓名") & "同志的职务找不到对应的岗位工资标准,请核对再操作!")
            Exit For
            pause = False
        End If
    Else
        MessageBox.Show( i("姓名") & " 同志的职务找不到对应的工资标准,请检查其技能级别")
        Exit For
        pause = False
    End If
End If
   

此主题相关图片如下：岗位薪级表.png


此主题相关图片如下：计时工资库.png

麻烦完整代码贴出来。或者上传例子

例子太大了，不好上传，完整代码：