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

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

老师，如果我想在窗口上显示节点数据，请教一下怎么写代码？

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

这代码，简洁高效好用

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("大类") & "'"

Case 1

Filter = "[大类] = '" & dr("大类") & "' And [二类] = '" & dr("二类") & "'"

Case 2

Filter = "[大类] = '" & dr("大类") & "' And [二类] = '" & dr("二类") & "' And [三类] = '" & dr("三类") & "'"

End Select

End If

Tables("表A").Filter = Filter

e.Form.Controls("显示").text = "当前人数: " & Tables("表A").Rows.Count & " 人"

表1：有三列数据,分别是"考室号", "考官编号", "考官姓名"三列, 共10行,考室号顺序是混乱的.表2也有三列数据,分别是"考室号", "考官编号", "考官姓名"三列,考室号按1-10顺序排列,只需写代码将表1编号相同的数据填充到表2即可.请老师修改一下代码。

Dim Cols1() As String = {"考官编号", "考官姓名"} '自定义数据来源列

Dim Cols2() As String = {"考官编号", "考官姓名"} '自定义数据接收列

For Each dr1 As DataRow In DataTables("基础表1").Select("[考室号] = ''")

Dim dr2 As DataRow = DataTables("抽签结果3填充").AddNew()

For i As Integer = 0 To Cols1.Length - 1

dr2(Cols2(i)) = dr1(Cols1(i))

考室号编号相同，但顺序不同。每个表有三列数据。将表1里的编号和姓名，提取到表2对应的考室号中

[此贴子已经被作者于2023/11/27 9:37:17编辑过]

此主题相关图片如下：mmexport1701050579579.png

蓝色字体为填充的效果
图片点击可在新窗口打开查看

此主题相关图片如下：mmexport1701050574642.png

此主题相关图片如下：mmexport1701054106429.png

此主题相关图片如下：mmexport1701054098833.png

Dim Cols0() As String = {"主考官_考室号", "主考官_考官编号", "主考官_考官姓名"} '自定义数据接收列

DataTables("抽签结果3填充").deletefor("")

For Each dr1 As DataRow In DataTables("基础表1").Select("", "主考官_考室号")

Dim dr2 As DataRow = DataTables("抽签结果3填充").AddNew()

For i As Integer = 0 To Cols0.Length - 1

dr2(Cols0(i)) = dr1(Cols0(i))

Dim Cols1() As String = {"A市考官_考室号", "A市考官_考官编号", "A市考官_考官姓名"} '自定义数据接收列

DataTables("抽签结果3填充").deletefor("")

For Each dr1 As DataRow In DataTables("基础表1").Select("", "A市考官_考官编号")

Dim dr2 As DataRow = DataTables("抽签结果3填充").AddNew()

For i As Integer = 0 To Cols1.Length - 1

dr2(Cols1(i)) = dr1(Cols1(i))

Dim Cols2() As String = {"B市考官_考室号", "B市考官_考官编号", "B市考官_考官姓名"} '自定义数据接收列

DataTables("抽签结果3填充").deletefor("")

For Each dr1 As DataRow In DataTables("基础表1").Select("", "B市考官_考官编号")

Dim dr2 As DataRow = DataTables("抽签结果3填充").AddNew()

For i As Integer = 0 To Cols2.Length - 1

dr2(Cols2(i)) = dr1(Cols2(i))

Dim Cols3() As String = {"C市考官_考室号", "C市考官_考官编号", "C市考官_考官姓名"} '自定义数据接收列

DataTables("抽签结果3填充").deletefor("")

For Each dr1 As DataRow In DataTables("基础表1").Select("", "C市考官_考官编号")

Dim dr2 As DataRow = DataTables("抽签结果3填充").AddNew()

For i As Integer = 0 To Cols3.Length - 1

dr2(Cols3(i)) = dr1(Cols3(i))

此主题相关图片如下：mmexport1701054092231.png

老师，上述代码单个是可行的。但多个组合就有问题了。请老师看看能否一键生成上述效果

[此贴子已经被作者于2023/11/27 11:05:45编辑过]

老师，提示出错=运算符后缺少操作数

非常好，谢谢蓝老师

问题：选择左边目录树某市一个类别，比如副主考，然后在这里分几个批次抽选，在单批抽选表出现重复数据现象，多试几次更加明显。错误代码在“开始抽选”按钮里，请老师帮助解决

下载信息 [文件大小：下载次数： ]
点击浏览该文件:批抽项目2311.foxdb

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