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

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=14923

这个帖子里的问题

 

相关代码如下：

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("岗位") & "' and 考核内容 = '" & e.Row("考核内容") & "'")
            Else
                Tables("现场检查").cols("考核序号").ComboList = DataTables("绩效考核项").GetComboListString("序号", "岗位 = '" & e.Row("岗位") & "'")
            End If
    End Select
End If

 

由于是通过岗位筛选的  而我绩效考核项里 最前面几条规定是全公司通用的 

 

我的下拉内容只是 该岗位的  怎么样再包括全公司通用的？

 

此主题相关图片如下：2.jpg

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

OK  不错~~~~~~