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

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"
不知该如何实现?
...全文
64 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
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

2,748

社区成员

发帖
与我相关
我的任务
社区描述
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧