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

DongFang981 2003-12-12 02:55:53
表格grid1,数据来源为一个sql查询。有三个字段a,b,c.有一文本框text1,命令按钮command1.
表格中的值为:
01 ask .t.
02 tar .f.
03 bas .t.
现在我想实现光标焦点无论放在哪个单元格中,单击按钮,文本框都能显示同一行中第一个值。
如焦点在"01"单元格,文本框能显示"01"
焦点在"ask"单元格,文本框能显示"01"
焦点在".f."单元格,文本框能显示"02"
焦点在"bas"单元格,文本框能显示"03"
不知该如何实现?
...全文
16 2 打赏 收藏 举报
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
taoyb 2003-12-13
在grid的 afterrowcolchange 中写

thisform.text1.value=你的查询表.a
  • 打赏
  • 举报
回复
zhongyj 2003-12-13
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
  • 打赏
  • 举报
回复
发帖
VFP
加入

2532

社区成员

VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
申请成为版主
帖子事件
创建了帖子
2003-12-12 02:55
社区公告
暂无公告