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

……

& dr("二类") & "' And 三类 = '" & dr("三类") & "'" & " 人"

End Select

End If

Tables("表A").Filter = Filter

e.Form.Controls("某控件").text = Tables("表A").rowsc.ount & "行"

这代码，简洁高效好用

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))

【编号相同】指什么？考官编号？

意思是表2已经有对应的考官编号，把表1里对应的姓名取到表2？

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

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

截图2个表数据看看，表1里的编号和姓名，怎么对应到表2的考室号的

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

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

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

Dim Cols1() 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 Cols1.Length - 1

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

此主题相关图片如下：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编辑过]

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市考官_考官姓名"} '自定义数据接收列

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

Dim dr2 As DataRow = DataTables("抽签结果3填充").Find("主考官_考室号=" & dr1("A市考官_考室号"))

if dr2 isnot nothing

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

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

endif

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