Foxtable(狐表)用户栏目专家坐堂 → 增加文件时报错了 未说明错误事件问怎么解决?


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

主题:增加文件时报错了 未说明错误事件问怎么解决?

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


加好友 发短信
等级:幼狐 帖子:58 积分:426 威望:0 精华:0 注册:2021/8/5 10:15:00
增加文件时报错了 未说明错误事件问怎么解决?  发帖心情 Post By:2021/8/20 15:36:00 [只看该作者]

图片点击可在新窗口打开查看
增加文件时报错了   增加文件时报错了  未说明错误事件问怎么解决?  哪里出现问题了呢?

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111411 积分:567125 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/20 15:39:00 [只看该作者]

怎么地方增加文件的?写了什么代码?

 回到顶部
帅哥哟,离线,有人找我吗?
charity
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:58 积分:426 威望:0 精华:0 注册:2021/8/5 10:15:00
  发帖心情 Post By: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



 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111411 积分:567125 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:58 积分:426 威望:0 精华:0 注册:2021/8/5 10:15:00
  发帖心情 Post By:2021/8/20 15:56:00 [只看该作者]

图片点击可在新窗口打开查看
报错提示如图所示

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111411 积分:567125 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:58 积分:426 威望:0 精华:0 注册:2021/8/5 10:15:00
  发帖心情 Post By:2021/8/20 16:05:00 [只看该作者]

试过了  弹不出来

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111411 积分:567125 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/20 16:17:00 [只看该作者]

这样呢
msgbox(e.Form.TableName

Tables(e.Form.TableName).AddNew()

msgbox(1) '能不能弹出来



 回到顶部
帅哥哟,离线,有人找我吗?
charity
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:58 积分:426 威望:0 精华:0 注册:2021/8/5 10:15:00
  发帖心情 Post By:2021/8/20 16:25:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111411 积分:567125 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/20 16:26:00 [只看该作者]

到原来按钮里测试

 回到顶部
总数 12 1 2 下一页