关于排考室座位号的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有8179人关注过本帖树形打印复制链接主题：关于排考室座位号的问题

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

加好友

发短信

等级：超级版主帖子：110334 积分：561518 威望：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

加好友

发短信

等级：超级版主帖子：110334 积分：561518 威望：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

加好友

发短信

等级：超级版主帖子：110334 积分：561518 威望：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

加好友

发短信

等级：超级版主帖子：110334 积分：561518 威望：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 下一页

主题：关于排考室座位号的问题