专家坐堂-增加文件时报错了未说明错误事件问怎么解决?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=171176)

--  作者：charity
--  发布时间：2021/8/20 15:36:00
--  增加文件时报错了未说明错误事件问怎么解决?

增加文件时报错了增加文件时报错了未说明错误事件问怎么解决? 哪里出现问题了呢?

--  作者：有点蓝
--  发布时间：2021/8/20 15:39:00
--
怎么地方增加文件的？写了什么代码？

--  作者：charity
--  发布时间：2021/8/20 15:44:00
--

增加按钮的代码:
Tables(e.Form.TableName).AddNew()
Dim aa As WinForm.Form = Forms("版型信息")
If aa.Opened = False Then
    aa.Open()
End If

--  作者：有点蓝
--  发布时间：2021/8/20 15:50:00
--

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看哪一句代码出错

Tables(e.Form.TableName).AddNew()
msgbox(1)
Dim aa As WinForm.Form = Forms("版型信息")
If aa.Opened = False Then
    aa.Open()
msgbox(2)
End If

--  作者：charity
--  发布时间：2021/8/20 15:56:00
--

报错提示如图所示

--  作者：有点蓝
--  发布时间：2021/8/20 15:57:00
--

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看哪一句代码出错

Tables(e.Form.TableName).AddNew()
msgbox(1) \'能不能弹出来
Dim aa As WinForm.Form = Forms("版型信息")
If aa.Opened = False Then
msgbox(2)\'能不能弹出来
    aa.Open()
msgbox(3)\'能不能弹出来
End If

--  作者：charity
--  发布时间：2021/8/20 16:05:00
--
试过了弹不出来

--  作者：有点蓝
--  发布时间：2021/8/20 16:17:00
--

这样呢
msgbox(e.Form.TableName)
Tables(e.Form.TableName).AddNew()
msgbox(1) \'能不能弹出来

--  作者：charity
--  发布时间：2021/8/20 16:25:00
--

--  作者：有点蓝
--  发布时间：2021/8/20 16:26:00
--
到原来按钮里测试