What should I do to dynamically add a column and button to the gird of VFP?

Today's community zhouboy asked , How can I be dynamic in GRID A dynamic column is added inside , Put a button inside , Tried many methods but failed .

I tried it remotely , If it doesn't trigger success , So I try to accomplish this function in two ways .
Create a new form , As shown in the figure ：

It's just one inside GRID, A button , Load the teacher table in the data environment .

Method 1 ： Custom class

Save the following code as mycommand.prg

DEFINE CLASS mybutton as CommandButton
  PROCEDURE click 
     MESSAGEBOX("ff2")
  ENDPROC 
ENDDEFINE 

Then in the Add button click Method to write the following code

Thisform.grd Teachers' .AddColumn(7)
Thisform.grd Teachers' .column7.NewObject("mybutton","mybutton","mycommand.prg")
Thisform.grd Teachers' .column7.CurrentControl="mybutton"
Thisform.grd Teachers' .column7.mybutton.Caption=" I'm scared "
Thisform.grd Teachers' .column7.mybutton.visible=.t.
Thisform.grd Teachers' .column7.Sparse=.F.

The operation effect is as follows ：

Method 2 ：

FORM Form addition command1 Method

Refresh button click Method

Thisform.grd Teachers' .AddColumn(7)
Thisform.grd Teachers' .column7.addobject("mybutton","commandbutton")
Thisform.grd Teachers' .column7.CurrentControl="mybutton"
Thisform.grd Teachers' .column7.mybutton.Caption=" I'm scared "
Thisform.grd Teachers' .column7.mybutton.visible=.t.
Thisform.grd Teachers' .column7.Sparse=.F.
BindEvent(thisform.grd Teachers' .column7.mybutton,"click",thisform,"comm1",0)

It works the same way

follow-up

When I send the form zhouboy When , He looked at my code , Finally, reply in the community , It's a buffer table problem , As a result, the column does not take effect , Now the problem has been solved , I haven't reappeared yet .

More information www.sn58.cn