Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于排考室座位号的问题


  共有8171人关注过本帖树形打印复制链接

主题：关于排考室座位号的问题
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：839 积分：5787 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2023/9/23 15:23:00 [只看该作者]

麻烦蓝老师看看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目923.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110333 积分：561507 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/9/23 15:41:00 [只看该作者]

开始排考室的处理逻辑是什么，没看懂，要实现什么功能，使用文字说明一下。

其它功能请举例说明一下什么地方不对，正确的结果是什么？
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：839 积分：5787 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2023/9/23 16:51:00 [只看该作者]

首先，考室设置，按照优先使用的先后顺序进行排考室。其次，同一时间考试的课程（试卷名称），尽量排在一起，比如101考室没有排完的，102考室继续排。目前是考试人数多的课程不能分考室。我感觉是不是内部函数出问题了？请老师帮忙先解决这个问题

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110333 积分：561507 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/9/23 17:12:00 [只看该作者]

还是没搞懂，自己加代码调试看是哪一句代码出错

 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：839 积分：5787 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2023/9/26 12:31:00 [只看该作者]

Dim ex As New Exporter '必需
ex.SourceTableName = "统计表2" '指定导出表的名称，字符型   必需
ex.FilePath = "c:\Data\单门课程对应所有的考室目录一览表1" '指定目标文件（保存路径及文件名）  必需
'ex.FilePath = "ProjectPath &"Reports \ 单门课程对应所有的考室目录一览表1.xls"  
ex.Format = "Excel" '导出格式为Excel，包括Access、Access2007、Excel、Excel2007、dBASE  必需
'ex.Fields = "日期, 客户, 数量, 单价, 产品"   '可指定导出字段
ex.Filter = "[选课信息_考试地址] = '考点1'" '指定导出条件
ex.Export() '开始导出  必需
MessageBox.Show("报表已生成，请查看!", "提示")
老师，上面的代码能用，我想将文件保存到下面的代码位置中，请问怎么修改？
'ex.FilePath = "ProjectPath &"Reports \ 单门课程对应所有的考室目录一览表1.xls"  
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  36楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110333 积分：561507 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/9/26 13:39:00 [只看该作者]

ex.FilePath = ProjectPath & "Reports\单门课程对应所有的考室目录一览表1.xls"  

 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  37楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：839 积分：5787 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2023/9/26 13:56:00 [只看该作者]

谢谢，老师

 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  38楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：839 积分：5787 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2023/9/27 13:23:00 [只看该作者]

Dim Filter As String
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[大类] = '" & dr("大类") & "'"
            e.Form.Controls("显示").text = "当前人数: " & Tables("表A").Compute("count(编号)"), "大类= '" & dr("大类") & "'" & " 人" 
        Case 1
            Filter = "[大类] = '" & dr("大类") & "' And [二类] = '" & dr("二类") & "'"
            e.Form.Controls("显示").text = "当前人数: " & Tables("表A").Compute("count(编号)"), "大类 = '" & dr("大类") & "' And 二类 = '" & dr("二类") & "'" & " 人"
        Case 2
            Filter = "[大类] = '" & dr("大类") & "' And [二类] = '" & dr("二类") & "' And [三类] = '" & dr("三类") & "'"
            e.Form.Controls("显示").text = "当前人数: " & Tables("表A").Compute("count(编号)"), "大类 = '" & dr("大类") & "' And 二类 = '" & dr("二类") & "' And 三类 = '" & dr("三类") & "'" & " 人"
    End Select
End If
Tables("表A").Filter = Filter
老师，如果我想在窗口上显示节点数据，请教一下怎么写代码？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  39楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110333 积分：561507 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/9/27 13:31:00 [只看该作者]

窗口什么地方，显示什么节点数据？

 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  40楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：839 积分：5787 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2023/9/27 13:51:00 [只看该作者]

窗口放了一个筛选树，想点击筛选树某一节点，在窗口上显示当前节点有多少行

 回到顶部
总数 72 上一页 1 2 3 4 5 6 7 8 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询