以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  用代码重启项目时报错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=153140)

--  作者:ifozhang
--  发布时间:2020/8/1 10:39:00
--  用代码重启项目时报错
问题解决:Syscmd.Project.Exit(True)直接退出,然后重新打开就没问题。


用命令窗口执行无错,用窗口按钮执行报错。

窗口按钮代码

Dim 
Builder As New ADOXBuilder
Dim
 tbl As ADOXTable
Builder.Open() 
tbl = Builder.NewTable(
"订单"\'创建表
With
 tbl
    .AddColumn(
"日期" ,ADOXType.DateTime)
    .AddColumn(
"产品" ,ADOXType.String12)
    .AddColumn(
"客户" ,ADOXType.String20)
    .AddColumn(
"数量" ,ADOXType.Integer)
    .AddColumn(
"备注" ,ADOXType.Text)
End With
Builder.AddTable(tbl) 
\'增加表
Builder.Close()
Syscmd.Project.Open(ProjectFile)




点击按钮后出现下面错误提示:

.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2020.5.29.8
错误所在事件:
详细错误信息:
此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据


[此贴子已经被作者于2020/8/1 18:06:25编辑过]

--  作者:有点蓝
--  发布时间:2020/8/2 9:54:00
--  
试试
……
Builder.Close()
e.cancel = true
Syscmd.Project.Open(ProjectFile)