谢谢是应该的你帮我把日期时间输进了字段(REPLACE 字段名 WITH DATE()),但弹出菜单没找到你指定的PopupMenu.PRG的文件,我知道我的水平太低很难再深究。右键菜单我在论坛里找了个代码试了好用,只可惜只能用在表单里面,查询里面我就不会用了。
Release med_cut,med_copy,med_clear,med_slcta
Public med_cut,med_copy,med_clear,med_slcta
med_cut=Iif(This.SelLength>0,.T.,.F.)
med_copy=Iif(This.SelLength>0,.T.,.F.)
med_clear=Iif(This.SelLength>0,.T.,.F.)
med_slcta=Iif(Len(Alltrim(This.Text))>0,.T.,.F.)
Define Popup shortcut SHORTCUT Relative From Mrow(),Mcol()
Define Bar _Med_undo Of shortcut Prompt "撒消(\<U)" ;
KEY CTRL+Z, ""
Define Bar 2 Of shortcut Prompt "\-"
Define Bar _Med_cut Of shortcut Prompt "剪切(\<T)" ;
KEY CTRL+X, "" ;
SKIP For med_cut=.F.
Define Bar _Med_copy Of shortcut Prompt "复制(\<C)" ;
KEY CTRL+C, "" ;
SKIP For med_copy=.F.
Define Bar _Med_paste Of shortcut Prompt "粘贴(\<P)" ;
KEY CTRL+V, "" &&;
* SKIP For Empty(_Cliptext)
Define Bar _Med_clear Of shortcut Prompt "删除(\<D)" ;
KEY DEL, "" ;
SKIP For med_clear=.F.
Define Bar 7 Of shortcut Prompt "\-"
Define Bar _Med_slcta Of shortcut Prompt "全选(\<A)" ;
KEY CTRL+A, "" ;
SKIP For med_slcta=.F.
Activate Popup shortcut
现在想找个简单的方法在查询上也能右键显现快捷菜单哪怕就只有复制一项都成(主要是我的水平只搞得了简单的东西)。