主题：请教表格与文本框的联动问题
wewq628
[专家分：0] 发布于 2008-07-25 10:15:00
表单中有表格和文本框,请教当鼠标点击表格中的某一行时能在文本框中显示对应值的方法(假设表单名为:表单1,表格名为:表格1)
回复列表 （共10个回复）
沙发
cbl518 [专家分：57140] 发布于 2008-07-26 06:31:00
在 表单1.表格1.column1.Click 事件写入：
thidform.text1.Value=this.Value
板凳
wewq628 [专家分：0] 发布于 2008-07-26 15:59:00
请教高手,以下语段中的"column1"是指什么控件?
在 表单1.表格1.column1.Click 事件写入：
thidform.text1.Value=this.Value
3 楼
qjbzjp [专家分：8830] 发布于 2008-07-26 17:17:00
是表格控件中的第一栏。
还可以用：
将文本框和表格绑定同一数据源，在表格的AfterRowColChange事件中写入代码：
thisform.text1.refresh
4 楼
wewq628 [专家分：0] 发布于 2008-07-26 22:36:00
请问一楼的cbl518老师,你的"表单1.表格1.column1"中哪里能找到"click"?我在"表单1"的"表格1"中的"column1"中怎么也找不到"click"事件啊!
5 楼
cbl518 [专家分：57140] 发布于 2008-07-26 23:28:00
对不起!上面写错了！
在 表单1.表格1.column1.text1.Click 事件写入：
thidform.text1.Value=this.Value
6 楼
wewq628 [专家分：0] 发布于 2008-07-27 07:52:00
还要请教一楼的老师,你的以下代码是能使表格中的第一列与对应的文本框联动了,
"在 表单1.表格1.column1.text1.Click 事件写入：
thidform.text1.Value=this.Value " 但仅仅是第一列而已.
我的要求是表格中若有n列(即n个字段,或者说每条记录有n个值),当鼠标点击某一行时,这一行的n个值在对应的n个文本框中要同时联动,不知能否做到?在此先谢了
7 楼
cbl518 [专家分：57140] 发布于 2008-07-27 11:19:00
在表单1的 init 事件写入：
FOR i=1 TO 表单1.表格1.ColumnCount
otName="thisform.text"+TRANSFORM(i)
&otName..ControlSource= 表单1.表格1.Objects[i].ControlSource
ENDIF
表格 AfterRowColChange 事件写入：
IF VAL(this.Tag)#nColIndex
thisform.Refresh
this.Tag=Str(nColIndex,2)
ENDIF
8 楼
cbl518 [专家分：57140] 发布于 2008-07-27 11:21:00
你必须要有和表格的列对象相同，数量的 text 控件！
9 楼
crocodile3358 [专家分：390] 发布于 2008-07-27 15:13:00
上面的方法我试了，当点击表格某一列的文本时，右面的文本框相应的显示和表格单元格内容一样的东西，可是在我的程序中却不行，文本框没反应
我来回复
您所在位置：社区首页 — Visual Foxpro讨论区 — 请教表格与文本框的联动问题