专家坐堂-未知编译错误Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  未知编译错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186469)

--  作者：a272797388
--  发布时间：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 = ""

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

--  作者：有点蓝
--  发布时间：2023/5/6 8:40:00
--
项目存放的路径，以及项目名称不要使用空格，括号等特殊符号。这样打开的项目可以显示具体的错误，而不是显示“未知编译错误”