VFP的GIRD要动态增加一列和按钮，要怎么办
今天社群的zhouboy问道，我要怎么动态在GRID里面动态增加一列，里面放一个按钮，试了许多方法没有成功。
我远程试了试，果真没有触发成功，于是我尝试用两个方法来完成这个功能。 新建一个表单，如图所示：
里面就一个GRID，一个按钮，数据环境中加载教师表。
方法一：自定义类
将如下代码保存为mycommand.prg
DEFINE CLASS mybutton as CommandButton
PROCEDURE click
MESSAGEBOX("ff2")
ENDPROC
ENDDEFINE
然后在增加按钮中click方法写如下代码
Thisform.grd教师.AddColumn(7)
Thisform.grd教师.column7.NewObject("mybutton","mybutton","mycommand.prg")
Thisform.grd教师.column7.CurrentControl="mybutton"
Thisform.grd教师.column7.mybutton.Caption="点我有惊吓"
Thisform.grd教师.column7.mybutton.visible=.t.
Thisform.grd教师.column7.Sparse=.F.
运行效果如下：
方法二：
FORM表单增加command1方法
刷新按钮click方法
Thisform.grd教师.AddColumn(7)
Thisform.grd教师.column7.addobject("mybutton","commandbutton")
Thisform.grd教师.column7.CurrentControl="mybutton"
Thisform.grd教师.column7.mybutton.Caption="点我有惊吓"
Thisform.grd教师.column7.mybutton.visible=.t.
Thisform.grd教师.column7.Sparse=.F.
BindEvent(thisform.grd教师.column7.mybutton,"click",thisform,"comm1",0)
运行效果一样
后续
当我把表单发送zhouboy的时候，他看了我的代码，最后在社群中回复，说是缓冲表的问题，导致列没有生效，现问题已经解决，我目前没有复现出来。
本文参与 腾讯云自媒体同步曝光计划，分享自微信公众号。
原始发表：2022-01-17，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读
目录
腾讯云开发者
