VFP的GIRD要动态增加一列和按钮，要怎么办

加菲猫的VFP

发布于 2022-02-17 01:14:30

1.4K00

代码可运行

文章被收录于专栏：加菲猫的VFP加菲猫的VFP

运行总次数：0

代码可运行

今天社群的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)