以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关联表与删除行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126249)
--  作者：yetle
--  发布时间：2018/10/17 15:05:00
--  关联表与删除行

款式颜色有关联行记录会有提示，没有执行删除动作，可是款式颜色没有关联行记录，删除动作也没有执行


BeforeDeleteDataRow


If e.DataRow.GetChildRows("款式颜色").Count > 0 Then
     MessageBox.Show("此款式存在款式颜色, 请先删除该款式颜色")
        e.Cancel= True
End If

删除按钮
If Tables("款号登记").Current IsNot Nothing Then
        If Tables("款号登记").TopPosition>-1 Then
            For  i As Integer=Tables("款号登记").BottomPosition To Tables("款号登记").TopPosition Step -1
                Tables("款号登记").Rows(i).Delete()
            Next

        End If
End If
--  作者：有点甜
--  发布时间：2018/10/17 15:44:00
--  

1、确认你的代码写在【款号登记】的表事件BeforeDeleteDataRow

 

2、删除按钮、表事件，分别加入msgbox弹出是否进入执行代码