以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  多列动态筛选  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146815)

--  作者:刘林
--  发布时间:2020/3/3 10:36:00
--  多列动态筛选
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:test1.txt

因一个学段下有多次考试,每次考试下有多个学校,多个学下有多个年级,每个年级有多个班,我想在筛选时依次生成下拉,然后选择,改不起,请老师帮看下怎么改进,谢谢
[此贴子已经被作者于2020/3/3 10:35:51编辑过]

--  作者:有点蓝
--  发布时间:2020/3/3 11:14:00
--  
Case  "xslb.htm"
        Dim vals As String
        If e.PostValues.ContainsKey("xd")
            If e.Cookies("userjs").contains("区业务主管")=False
                vals  ="|" & DataTables("成绩").sqlGetComboListString("考试名称","学段=\'" & e.PostValues("xd") & "\'and 单位名称 =\'" & e.Cookies("userdw") & "\'","考试名称 desc")
            Else
                vals  ="|" & DataTables("成绩").sqlGetComboListString("考试名称","学段=\'" & e.PostValues("xd") & "\'","考试名称 desc")
            End If
        EndIf e.PostValues.ContainsKey("xd") And e.PostValues.ContainsKey("ksmc")
            If e.Cookies("userjs").contains("区业务主管")=False
                vals = "|" & DataTables("成绩").sqlGetComboListString("班级全称", "学段= \'" & e.PostValues("xd") & "\' and 考试名称= \'" & e.PostValues("ksmc") & "\' and 单位名称 =\'" & e.Cookies("userdw") & "\'")
            Else
                vals = "|" & DataTables("成绩").sqlGetComboListString("班级全称", "学段= \'" & e.PostValues("xd") & "\' and 考试名称= \'" & e.PostValues("ksmc") & "\'")
            End If
        End If
        e.writestring(vals)

--  作者:刘林
--  发布时间:2020/3/3 21:16:00
--  
endif  是else if吧?
--  作者:有点蓝
--  发布时间:2020/3/3 21:32:00
--  
http://www.foxtable.com/webhelp/topics/0223.htm