- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 代码变异 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=157450)
-- 发布时间：2020/10/16 14:08:00
-- 代码变异
Dim t As Table = Tables("初二鹤立考点")
Dim a As Integer = t.rows.count
Dim b As Integer = a - Math.Floor(a / 30)
Dim idx As Integer = 1
For i As Integer = 0 To b Step 30
For j As Integer = 0 To 29
t.Rows(i+j)("考场") = Format(idx,"00")
Next
idx += 1
Next
idx-=1
For i As Integer = b+1 To a - 1
t.Rows(i)("考场") = Format(idx,"00")
Next
为什么执行这段代码后考场的列名改变为数字了？
此主题相关图片如下：666.png
-- 发布时间：2020/10/16 14:29:00
--
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=157449