共3 条记录, 每页显示 10 条, 页签: [1]

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

1楼

gaoyong30000 发表于：2011/12/7 14:08:00

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

[此贴子已经被作者于2011-12-7 14:10:55编辑过]

2楼

狐狸爸爸 发表于：2011/12/7 14:30:00

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

3楼

gaoyong30000 发表于：2011/12/7 15:33:00

OK 不错~~~~~~

共3 条记录, 每页显示 10 条, 页签: [1]