回 帖 发 新 帖 刷新版面

主题:怎样才能实现

我想在一个右键菜单的删除键中删除表单上表格控制里的一条当前记录,我是这样做的:在表单(form1)中自定一个方法,方法名为:scwj,代码如下:
SELECT ml
IF messagebox('确定删除选中记录吗?',4+32,"提示")=6
kk1=RECNO()
thisform.grid1.RecordSource=null
delete
PACK
SELECT ml
thisform.grid1.RecordSource='ml'
thisform.grid1.RecordSourceType=1
GO kk1
ENDIF
thisform.refresh()
菜单调用方法命令为:form1.scwj
错误提示为:找不到form1
我又在菜单中改为过程,代码如下:
SELECT ml
IF messagebox('确定删除选中记录吗?',4+32,"提示")=6
kk1=RECNO()
thisform.grid1.RecordSource=null
delete
PACK
SELECT ml
thisform.grid1.RecordSource='ml'
thisform.grid1.RecordSourceType=1
GO kk1
ENDIF
thisform.refresh()
错误提示为:thisform只能在方法程序中使用。
我又改为:
SELECT ml
IF messagebox('确定删除选中记录吗?',4+32,"提示")=6
kk1=RECNO()
form1.grid1.RecordSource=null
delete
PACK
SELECT ml
form1.grid1.RecordSource='ml'
form1.grid1.RecordSourceType=1
GO kk1
ENDIF
form1.refresh()
错误提示为:找不到form1
请问怎样才能实现这一理想?

回复列表 (共2个回复)

沙发

我想在一个右键菜单的删除键中删除表单上表格控制里的一条当前记录,我是这样做的:在表单(form1)中自定一个方法,方法名为:scwj,代码如下:
SELECT ml
IF messagebox('确定删除选中记录吗?',4+32,"提示")=6
kk1=RECNO()
thisform.grid1.RecordSource=null
delete
PACK
SELECT ml
thisform.grid1.RecordSource='ml'
thisform.grid1.RecordSourceType=1
GO kk1
ENDIF
thisform.refresh()
菜单调用方法命令为:form1.scwj
错误提示为:找不到form1
 

这样在菜单中写执行时提示“找不到form1”,是因为你的form在菜单执行时根本就没有存在——需要先定义它才能调用!

实现你的这个要求,你为什么不在表单中做个按钮来解决呢?为什么要自己定义一个方法呢?

板凳

我是隐藏了主窗口,FORM1是顶层表单,是打开了的。在表单上用按键是能实现,但有右键菜单不是更好吗?我就是请教看有没有办法,怎样实现?请高手们指点!

我来回复

您尚未登录,请登录后再回复。点此登录或注册