主题：[求助]刚才我那个项目的另外一个问题！

If e.IsFocusCell Then
    Select Case e.col.name
        Case "考核内容"
            Tables("现场检查").cols("考核内容").ComboList = DataTables("绩效考核项").GetComboListString("考核内容", "岗位 = '" & e.Row("岗位") & "'")
        Case "考核序号"
            If e.Row("考核内容") IsNot Nothing Then
                Tables("现场检查").cols("考核序号").ComboList = DataTables("绩效考核项").GetComboListString("序号", "(岗位 = '" & e.Row("岗位") & "' Or 岗位 = '全部门')  and 考核内容 = '" & e.Row("考核内容") & "'")
            Else
                Tables("现场检查").cols("考核序号").ComboList = DataTables("绩效考核项").GetComboListString("序号", "岗位 = '" & e.Row("岗位") & "' Or 岗位 = '全部门'")
            End If
    End Select
End If