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

原创于 2022-01-17 10:52:32 发布 · 1.1k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#开发语言

VFP 专栏收录该内容

143 篇文章

订阅专栏

本文介绍了两种在Visual FoxPro的GRID控件中动态添加一列并放置按钮的方法。第一种方法通过自定义类实现，第二种则直接使用FORM表单中的command1方法。这两种方案均可实现在GRID中增加带有点击事件的按钮。

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

运行效果一样