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

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

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

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110746 积分：563656 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/1/19 16:42:00 [显示全部帖子]

……

CurrentTable.sort = "索引顺序"

Dim k As Integer = 1

Dim z As Integer = 1

For b As Integer = 0 To CurrentTable.rows.count -1

CurrentTable.Rows(b)("考场号") = Format(k,"100")

CurrentTable.Rows(b)("座位号") = z

z = z + 1

If k<= 4

If z > 27 Then

z = 1

k = k + 1

End If

Else

If z > 26 Then

z = 1

k = k + 1

End If

[此贴子已经被作者于2022/1/19 16:43:25编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110746 积分：563656 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/1/19 17:22:00 [显示全部帖子]

For b As Integer = 0 To CurrentTable.rows.count -1

CurrentTable.Rows(b)("考场号") = Format(k,"100")

CurrentTable.Rows(b)("座位号") = z

z = z + 1

If z > 30 Then

z = 1

k = k + 1

End If

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110746 积分：563656 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/1/19 17:38:00 [显示全部帖子]

参考"考场号"的format用法呀，自己都用上了还不会？

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110746 积分：563656 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/1/20 8:31:00 [显示全部帖子]

dim r as row = tables("表A").current

if r isnot nothing then

r("准考证号") = r("县级代号")+r("科类代号")+r("类别代号")+r("考生序号")

end if

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110746 积分：563656 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/1/20 9:45:00 [显示全部帖子]

CurrentTable.Rows(b)("考场号") = Format(k,"000")

CurrentTable.Rows(b)("座位号") = Format(z,"00")

[此贴子已经被作者于2022/1/20 9:44:53编辑过]

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110746 积分：563656 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/1/20 10:48:00 [显示全部帖子]

去掉红色代码，多余

For b As Integer = 0 To CurrentTable.rows.count -1

CurrentTable.Rows(b)("考场号") = Format(k,"100") ''默认Format(k,"000")

CurrentTable.Rows(b)("座位号") = Format(Rand.Next(30) + b Mod e.Form.Controls("NumericComboBox1").Value,"00")

CurrentTable.Rows(b)("座位号") = z

CurrentTable.Rows(b)("座位号") = Format(z,"00")

z = z + 1

If z > 30 Then

z = 1

k = k + 1

End If

有点蓝

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110746 积分：563656 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/1/20 11:23:00 [显示全部帖子]

应该没有，测试再找问题了

有点蓝

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110746 积分：563656 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/9/11 15:30:00 [显示全部帖子]

目录树控件没有打印属性，无法做窗口打印

有点蓝

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110746 积分：563656 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/9/11 15:56:00 [显示全部帖子]

论坛附件单个文件不能大于2M。新建一个项目做个例子发上来，不要发原项目，不要放太多测试数据

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

有点蓝

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110746 积分：563656 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/9/11 16:01:00 [显示全部帖子]

没看懂，请上传实例测试

下一主题 >> << 上一主题

总数 33 1 2 3 4 下一页

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