主题：代码变异

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

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