DataTables("初二会考系统").DataCols("学校名称").RaiseDataColChanged()
DataTables("初二会考系统").DataCols("班级").RaiseDataColChanged()
Tables("初二会考系统").filter = "代码='30'"
MainTable = Tables("初二会考系统")
Tables("初二会考系统").AddNew(30)
Dim t As Table = Tables("初二会考系统")
Dim a As Integer = t.rows.count
Dim b As Integer = a - Math.Floor(a / 16)
Dim idy As Integer = 1
For i As Integer = 0 To b Step 16
For j As Integer = 0 To 15
t.Rows(i + j)("场次") = Format(idy, "00")
Next
idy += 1
Next
For i As Integer = b + 1 To a - 1
t.Rows(i)("场次") = Format(idy, "00")
Next
Dim iidx As Integer = 1
For Each r As Row In Tables("初二会考系统").rows
r("位号") = CStr(iidx).PadLeft(2, "0")
iidx = iidx + 1
If iidx > 16 Then iidx = 1
Next
DataTables("初二会考系统").DeleteFor("学生姓名 is null")
Tables("初二会考系统").Filter = ""
Tables("初二会考系统").Sort = ""
DataTables("初二会考系统").DataCols("学校名称").RaiseDataColChanged()
DataTables("初二会考系统").DataCols("班级").RaiseDataColChanged()
Tables("初二会考系统").filter = "代码='31'"
MainTable = Tables("初二会考系统")
Tables("初二会考系统").AddNew(30)
Dim t As Table = Tables("初二会考系统")
Dim a As Integer = t.rows.count
Dim b As Integer = a - Math.Floor(a / 16)
Dim idy As Integer = 1
For i As Integer = 0 To b Step 16
For j As Integer = 0 To 15
t.Rows(i + j)("场次") = Format(idy, "00")
Next
idy += 1
Next
For i As Integer = b + 1 To a - 1
t.Rows(i)("场次") = Format(idy, "00")
Next
Dim iidx As Integer = 1
For Each r As Row In Tables("初二会考系统").rows
r("位号") = CStr(iidx).PadLeft(2, "0")
iidx = iidx + 1
If iidx > 16 Then iidx = 1
Next
DataTables("初二会考系统").DeleteFor("学生姓名 is null")
Tables("初二会考系统").Filter = ""
Tables("初二会考系统").Sort = ""
为什么会出现 未知编译错误 呢?