关于表格问题，急，在线等!!....

[DongFang981]

表格grid1,数据来源为一个sql查询。有三个字段a,b,c.有一文本框text1,命令按钮command1.
表格中的值为：
01 ask .t.
02 tar .f.
03 bas .t.
现在我想实现光标焦点无论放在哪个单元格中，单击按钮，文本框都能显示同一行中第一个值。
如焦点在"01"单元格，文本框能显示"01"
焦点在"ask"单元格，文本框能显示"01"
焦点在".f."单元格，文本框能显示"02"
焦点在"bas"单元格，文本框能显示"03"
不知该如何实现？

[zhongyj]

select 0
create cursor temptable (no c(2),descript C(5),flag L(1))
insert into temptable values ('01','ask',.T.)
insert into temptable values ('02','tar',.F.)
insert into temptable values ('03','bas',.T.)
go top
oform=createobject("form")
oform.addobject("grid1","UserGrid")
oform.addobject("close1","closecmd")
oform.addobject("no1","textbox")

oform.visible=.T.
oform.no1.visible=.T.
oform.no1.top=0
oform.no1.controlsource="temptable.no"
oform.no1.readonly=.T.
oform.close1.visible=.T.
oform.grid1.visible=.T.
oform.grid1.top=30
oform.grid1.recordsource="temptable"
Read event
oform.release
use in temptable
Define CLASS closecmd AS commandbutton
Top=0
Left=200
width=100
Height=24
Caption="Close"
Procedure click

Clear event
Endproc
Enddefine
Define CLASS UserGrid AS grid
Procedure afterrowcolchange
LPARAMETERS nColIndex

thisform.no1.refresh
Endproc
Enddefine

• 打赏
• 举报

回复 赞

[taoyb]

在grid的 afterrowcolchange 中写

thisform.text1.value=你的查询表.a

• 打赏
• 举报

回复 赞