我们需要在第一个子表的表属性设置窗口中,设置表事件BeforeMenuCommandClick,写上下面这段代码
这主要是利用了BeforeMenuCommandClick事件可以根据实际需要取消掉默认命令的默认代码 的执行。
- Public Sub BeforeMenuCommandClick(sender As Object,e As sanMuSoft.CS.WinForm.GridMenuClickArgs)
- Dim tbl As SmGrid=CType(e.BaseGrid,SmGrid)
-
- If e.Command.Name=BaseGridMenuNames.Add OrElse e.Command.Name=BaseGridMenuNames.AddNews Then
-
- If tbl.Relation.ParentGrid IsNot Nothing Then
-
-
- If tbl.Relation.ParentGrid.BaseBaseGrid.CheckDataRuleBeforeSave(False)=False Then
-
- e.Cancel=True
- Return
- End If
- End If
- End If
- End Sub
复制代码
|