求助，怎么通过grid的事件控制按钮。。。 - 编程论坛

#2

zhken2020-06-30 18:43

必须在 thisform.grid1.column1.text1.click 事件写

#3

yuantao1002020-06-30 18:50

我在程序里有设置columncount=4
那是不是每个列的text1里面都要写上：

另外，在表单页面里面没有这个对象啊。。

#4

zhken2020-06-30 19:04

只有本站会员才能查看附件，请登录

,将-1改成表的字段数，就出来了，然后在你需要的一列设。

#5

sdta2020-06-30 19:08

表格控件的 AfterRowColChange 事件中
写入相应的代码

#6

yuantao1002020-06-30 19:19

以下是引用zhken在2020-6-30 19:04:22的发言：

,将-1改成表的字段数，就出来了，然后在你需要的一列设。

我是在运行中，才用columncount设置列数，因为列数不固定多，要先看获取的数据。
愁死我了。。。

#7

yuantao1002020-06-30 19:20

以下是引用sdta在2020-6-30 19:08:14的发言：

表格控件的 AfterRowColChange 事件中
写入相应的代码

可是这个AfterRowColChange中，我还是没办法给新的对像的事件写代码啊
比如thisform.grid1.column1.text1的click事件，
我是不是需要得找到这个控件才行。。。。不然这个click写到哪儿呢？。。

#8

sdta2020-06-30 20:00

换VFP9吧

[此贴子已经被作者于2020-6-30 20:02编辑过]

#9

吹水佬2020-06-30 20:03

如果GRID只做显示用（不编辑数据），可以在GRID的click事件中处理

CREATE CURSOR tt (f1 I, f2 I)
FOR i=1 TO 100
    INSERT INTO tt VALUES (i, i*2)
ENDFOR
GO TOP
of = CREATEOBJECT("form1")
of.show(1)
RETURN

DEFINE CLASS form1 As Form
    ADD OBJECT cmd as commandbutton WITH left=10,top=10
    ADD OBJECT Grid1 as Grid WITH left=10,top=30,AllowCellSelection=.F.
    PROCEDURE Grid1.click
        thisform.cmd.enabled = !thisform.cmd.enabled
    ENDPROC
ENDDEFINE

[此贴子已经被作者于2020-6-30 21:13编辑过]

#10

zhken2020-06-30 23:28

试试这个：表单运行时用BINDEVENT()来绑定事件,属性或方法从VFP自己的对象到其它VFP对象，可以用编程来绑定表格中每一列内含的TEXT文本框的click事件，适合不确定有多少列的情况。