用逻辑列来控制删除子表行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用逻辑列来控制删除子表行

共有2779人关注过本帖树形打印复制链接主题：用逻辑列来控制删除子表行

everybody

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

加好友

发短信

等级：小狐帖子：307 积分：2252 威望：0 精华：0 注册：2013/2/28 9:05:00

用逻辑列来控制删除子表行 发帖心情

Post By：2015/7/18 14:15:00 [只看该作者]

几句代码，搞死我了。

很简单的思路，当前行为逻辑列，如果勾选了，关联子表中就执行规定动作；如果取消勾选了，则删除关联子表中关联行。

尝试了一下代码，搞不定，高手帮忙修整下：

If e.DataCol.Name = "同意" Then '如果是当前是逻辑列“同意”

If e.NewValue = True Then '而且变动后的值是True(已勾选)
’执行动作
End If

    If e.NewValue = False Then '而且变动后的值是false(取消勾选)
        '如果关联子表中存在关联行的话,删除之
        Dim pr As DataRow = e.DataRow.GetParentRow("推荐") '获得此明细对应的订单
        If pr IsNot Nothing Then '如果有对应的订单
            Tables("考察").Current.Delete
        End If
    End If

End If

[此贴子已经被作者于2015/7/18 14:23:48编辑过]