欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

grid1中怎的在显示内容的每行行尾加命令“查看”,点击它打开第2个表

更新时间: 2014-01-05 02:27:50 责任编辑: Author_N1

 

grid1中怎样在显示内容的每行行尾加命令“查看”,点击它打开第2个表?

--参考方法--
动态加载一个控件,如按钮,并给按钮的Click事件绑定事件:

1、建一个过程文件(如MyProc.PRG),内容如下
Define Class myhandler As Session
Procedure CmdClick
Messagebox('ok',64,'') &&此处改为你的相应代码
Return
Endproc
Enddefine

2、表单的INIT事件:

Set Procedure To MyProc.prg


3、表单上动态加载控件按钮的CLICK事件:

Thisform.AddObject('Cmd_Test','CommandButton')
Thisform.Cmd_Test.Caption='Cmd_Test'
Thisform.Cmd_Test.Top=100
Thisform.Cmd_Test.Left=100
Thisform.Cmd_Test.Height=25
Public oHandler
oHandler=Newobject("myhandler")
Bindevent(Thisform.Cmd_Test,"Click",oHandler,"CmdClick")
Thisform.Cmd_Test.Visible=.T.

--参考方法--
我估计楼主是不知道怎样把一个按钮放到表格里面 无来个图解说明










上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 02:27:50
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/10124/
本文WWW.DOC100.NET DOC100.NET版权所有。