主题：筛选问题！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:国家开放大学考务系统签到单打印条件问题.rar

现在一个问题，在考试时要制作一个供学生签到的表，即同一日期，同一起始时间，同一教室的考试信息要打在一张A4的纸上，供学生签到。

 

我不知道怎样用树将日期，起始时间，教室做一个树，然后通过选中树的节点来筛选 ，请专家指导详细些，在实例中有实际代码，谢谢！

AfterLoad

 

tv.BuildTree("考试数据表", "日期|起始时间")

 

 

-------------------

 

取得筛选条件，报表代码自己学习专业报表去写。

 

Dim tj,Filter,bdm,xh As String                       '定义几个字符串变量
If e.Form.Controls("加载条件").text = ""            '若加载条件这个文本框的值为空
    Filter = ""                                      '则filter也为空
Else                                                 '否则
    tj = e.Form.Controls("加载条件").text            'tj等于加载条件这个文本框的值
    tj = tj.Replace(vbcrlf,";").Replace(Chr(10),"").Replace(Chr(13),";").Replace(chr(-23636),",")
    '规范条件按格式，就是将一些回车替换为逗号分号之类的
    Dim Values(),Value2s() As String                    '定义2个字符串的数组
    Values = tj.split(";")                           'values是将tj通过分号来分割
    For Index As Integer = 0 To Values.Length - 1    '遍历这个数组
        bdm = Values(Index).split("/")(0)
        'bdm的值等于values数组里每个值通过斜杠分割后的第一个值，比如   values数组里的当前值是  11\22  那么bdm就等于11
        xh = Values(Index).split("/")(1)
        'xh的值等于values数组里每个值通过斜杠分割后的第二个值，比如   values数组里的当前值是  11\22  那么xh就等于22
        If xh = "all"                               '若xh不等于all
            Filter = Filter & " or 日期 = '" & bdm & "'"  '将分割出来的值组成filter
        Else
            Value2s = xh.split(",")
            'value2这个数组是通过xh经过逗号分割而得到的数组
            For i As Integer = 0 To Value2s.Length - 1
                '遍历这个value2数组
                Filter =Filter &  " or 起始时间 = '" & Value2s(i) & "'"
                '将遍历的值合成为filter
            Next                                      '结束遍历value2s的数组
        End If                                        '结束对xh不等于all的判断
    Next                                              '结束对values的数组遍历
End If

If  Filter > "" Then
    Filter = "$" & Filter
    Filter = Filter.Replace("$ or ","")
msgbox(filter)
    DataTables("考试数据表").LoadFilter = Filter          '把得到的filter作为jbxx的加载条件
Else
    DataTables("考试数据表").LoadFilter = ""
End If
DataTables("考试数据表").Load

大红袍老师：

我是要得到在加载条件下 

 

假设我作了如图的选择：

 
此主题相关图片如下：qq截图20150614104301.png

 

短日期 = “10日”and 起始时间  = “08：00” 下所有教室的遍历，那么要依次得到下面的筛选条件：

 

短日期 = “10日”and 起始时间  = “08：00” and 教室  = “201”

短日期 = “10日”and 起始时间  = “08：00” and 教室  = “202”

短日期 = “10日”and 起始时间  = “08：00” and 教室  = “203”

短日期 = “10日”and 起始时间  = “08：00” and 教室  = “204”

短日期 = “10日”and 起始时间  = “08：00” and 教室  = “301”

短日期 = “10日”and 起始时间  = “08：00” and 教室  = “401”

 

因为从下图中可以得到在10日，08：30中起用了这6个教室

 

此主题相关图片如下：qq截图20150614104840.png

 

还有
大红袍老师如果树形图还加一级教室就最好，因为我不会加，加了之后下一层总出问题，还请大红袍老师帮忙解决，谢谢！

此主题相关图片如下：qq截图20150614104840.png

 无语，本来就给你做好了啊

 

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=69890&skin=0

 

短日期 = “10日”and 起始时间  = “08：00” 下所有教室的遍历，那么要依次得到下面的筛选条件：

 

短日期 = “10日”and 起始时间  = “08：00” and 教室  = “201”

短日期 = “10日”and 起始时间  = “08：00” and 教室  = “202”

短日期 = “10日”and 起始时间  = “08：00” and 教室  = “203”

短日期 = “10日”and 起始时间  = “08：00” and 教室  = “204”

短日期 = “10日”and 起始时间  = “08：00” and 教室  = “301”

短日期 = “10日”and 起始时间  = “08：00” and 教室  = “401”

 

 

大红袍老师：那这个加载条件是怎样的呢？

 看4楼