以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何给快捷菜单增加代码?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120715)
--  作者：fytea
--  发布时间：2018/6/22 14:02:00
--  如何给快捷菜单增加代码?

用快捷菜单删除主表行,想增加下面的代码,怎么操作?

If Tables("出库主表.出库明细表").Rows.Count > 0 Then
    MessageBox.Show("该出库单有明细项,请先删除明细项再删除出库单!")
    Return
Else
    If MessageBox.Show("是否删除?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
        Tables("出库主表").Current.Delete
    End If
End If
--  作者：有点甜
--  发布时间：2018/6/22 14:20:00
--  

显示自己的快捷菜单，然后写自己的代码，如

 

http://www.foxtable.com/webhelp/scr/0662.htm

 

http://www.foxtable.com/webhelp/scr/3116.htm

 
--  作者：fytea
--  发布时间：2018/6/22 15:03:00
--  
能不能只禁止其中一个菜单功能
--  作者：有点甜
--  发布时间：2018/6/22 15:19:00
--  
以下是引用fytea在2018/6/22 15:03:00的发言：
能不能只禁止其中一个菜单功能

 

可以，比如

 

CurrentTableChanged事件

 

If currentTable.Name = "表A" Then

    ContextMenus("Cell").Items("UnFilter").Enabled = False

Else

    ContextMenus("Cell").Items("UnFilter").Enabled = True

End If