专家坐堂-[求助]刚才我那个项目的另外一个问题！Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]刚才我那个项目的另外一个问题！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=14936)

--  作者：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编辑过]

--  作者：狐狸爸爸
--  发布时间：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

--  作者：gaoyong30000
--  发布时间：2011/12/7 15:33:00
--

OK 不错~~~~~~