Foxtable(狐表)用户栏目专家坐堂 → 未知编译错误


  共有2497人关注过本帖树形打印复制链接

主题:未知编译错误

帅哥哟,离线,有人找我吗?
a272797388
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:147 积分:1863 威望:0 精华:0 注册:2020/1/23 16:11:00
未知编译错误  发帖心情 Post By:2023/5/5 18:01:00 [显示全部帖子]

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 = ""



为什么会出现 未知编译错误 呢?

 回到顶部