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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何取消关联表的复选框？

共有3693人关注过本帖树形打印复制链接主题：如何取消关联表的复选框？

wh420

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

等级：五尾狐帖子：1107 积分：10586 威望：0 精华：0 注册：2014/2/19 16:32:00

如何取消关联表的复选框？ 发帖心情

Post By：2019/6/11 15:02:00 [只看该作者]

客户表和订单表建立关联如图

此主题相关图片如下：qq截图20190611145745.png

选择不同客户订单与之关联显示。

订单表有复选框，当我单击客户A后，在显示出的订单表中选中前两条记录的复选框，单击客户B后如何实现把客户A对应订单表的复选框选中状态清除？

写在哪个事件中比较好？代码怎么写？谢谢老师

wh420

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

等级：五尾狐帖子：1107 积分：10586 威望：0 精华：0 注册：2014/2/19 16:32:00

Post By：2019/6/11 15:28:00 [只看该作者]

上传例子：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.rar

打开窗口1，单击客户A-在订单表选中任意两条复选框，

如何单击客户B所在行时清除客户A选中的复选框？

有点蓝

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

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

Post By：2019/6/11 20:36:00 [只看该作者]

客户表，BeforeSelChange事件

If Forms("窗口1").Opened Then

If e.OldRange.RowSel <> e.NewRange.RowSel '如果选择的是不同的行

If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then '而且原来选择的是一个有效的数据行

Dim r As Row = e.Table.Rows(e.OldRange.Rowsel) '获得原来选择的行

DataTables("订单表").ReplaceFor("选择",False,"CID='" & r("CID") & "'")

End If

主题：如何取消关联表的复选框？