窗口关联表的按钮 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口关联表的按钮

共有2499人关注过本帖树形打印复制链接主题：窗口关联表的按钮

nbsugu_z

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：408 积分：3642 威望：0 精华：0 注册：2017/4/8 8:59:00

窗口关联表的按钮 发帖心情

Post By：2019/8/13 13:58:00 [只看该作者]

Tables("hkjh").AllowEdit=True

Tables("hkjh").AddNew()

为什么在窗口中的关联表按钮无效，增加、删除、保存对关联表不起作用？
图片点击可在新窗口打开查看

此主题相关图片如下：微信图片.png

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/8/13 14:00:00 [只看该作者]

这个才是关联表

Tables("mxb.hkjh").AllowEdit=True

Tables("mxb.hkjh").AddNew()

nbsugu_z

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：408 积分：3642 威望：0 精华：0 注册：2017/4/8 8:59:00

Post By：2019/8/13 14:47:00 [只看该作者]

Object reference not set to an instance of an object. 我用删除时为什么有这个提示？

Dim Result As DialogResult

Result = MessageBox.Show("您确认要删除此条记录吗?删除后将不能恢复", "警告", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Result = DialogResult.Yes Then

Tables("mxb.hkjh").AllowEdit=True

Tables("mxb.hkjh").Current.Locked = False

Tables("mxb.hkjh").Current.Delete

End If

DataTables("hkjh").Save()

Tables("mxb.hkjh").Current.Locked = True

Tables("mxb.hkjh").AllowEdit=False

当关联表为空时增加一行后，再删除此行，会出现上面提示

当关联表不为空时，已经存有行时，再增加一行，删除新增行就不会有提示了

[此贴子已经被作者于2019/8/13 14:48:14编辑过]

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/8/13 14:59:00 [只看该作者]

if Tables("mxb.hkjh").Current is nothing then return

Dim Result As DialogResult

Result = MessageBox.Show("您确认要删除此条记录吗?删除后将不能恢复", "警告", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Result = DialogResult.Yes Then

……

nbsugu_z

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：408 积分：3642 威望：0 精华：0 注册：2017/4/8 8:59:00

Post By：2019/8/13 16:48:00 [只看该作者]

老师，加上代码后操作是成功的，但是会有原来的提示。Object reference not set to an instance of an object

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/8/13 16:59:00 [只看该作者]

上传实例测试

nbsugu_z

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：408 积分：3642 威望：0 精华：0 注册：2017/4/8 8:59:00

Post By：2019/8/14 14:44:00 [只看该作者]

老师，是这样的。这个代码可以运行，也能操作成功，但是会有提示，在下面情况时：

　比如关联表有多行，当剩下只有一条记录时、再删除就有提示，删除大于一行的其他行就没有出现运行错误的提示

[此贴子已经被作者于2019/8/14 14:45:21编辑过]

有点蓝

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/8/14 14:50:00 [只看该作者]

我测试没有问题，应该是触发了其它的事件代码引起的。检查其它事件

下一主题 >> << 上一主题

主题：窗口关联表的按钮