社区
Delphi
帖子详情
有谁能解决这个问题吗?
dlp826
2003-10-20 04:25:42
在DBGRID中,知道了行号和字段名的情况下怎样去取对应原字段值?
...全文
37
11
打赏
收藏
有谁能解决这个问题吗?
在DBGRID中,知道了行号和字段名的情况下怎样去取对应原字段值?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
11 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
angle097113
2003-10-21
打赏
举报
回复
你是什么错误怎么不这里就没有事情呢?
把错误提示贴出来
angle097113
2003-10-21
打赏
举报
回复
首先你调试看看获得的行号的正确吗?
dlp826
2003-10-21
打赏
举报
回复
angle097113(深思不解):我试过了,还是不行,下面是我的代码,麻烦您看看,不胜感激:
procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
RowIndex,ColumnIndex:Integer;
begin
RowIndex:=DBGrid1.MouseCoord(X,Y).Y-1;
ColumnIndex:=DBGrid1.MouseCoord(X,Y).X-1;//根据 ColumnIndex 可得知字段名:
if (columnindex>=0) and (rowindex>=0) and (columnindex<=dbgrid1.Columns.Count) then
begin
DBGrid1.DataSource.DataSet.RecNo:=rowindex;
// table1.RecNo:= rowindex;
//table1.DataSource.DataSet.RecNo:=rowindex;
edit1.Text:=dbgrid1.DataSource.DataSet.fieldbyname(dbgrid1.Columns[ColumnIndex].FieldName).AsString;
// edit1.Text :=dbgrid1.Columns[ColumnIndex].FieldName ;
end;
end;
angle097113
2003-10-20
打赏
举报
回复
DBGrid.DataSource.DataSet.RecNo := 行号;
变量 := DBGrid.DataSource.DataSet.FieldByName('字段名称').AsString;
没有问题
guolvguolv
2003-10-20
打赏
举报
回复
如果你不想造成这个表光标的移动,可以再建一个表在第二个表中取数据,不过好象太浪费
dlp826
2003-10-20
打赏
举报
回复
请教aiirii(aiirii) :我不想先定位,造位光标的移动,在某些情况下不友好.有办法吗?
dlp826
2003-10-20
打赏
举报
回复
guolvguolv(guolvguolv) :谢谢你,但table1.fieldbyname('sdfadsf').asstring取得是当前行的数据,我要的是指定行的数据,但我不想进行先选择再取.
aiirii
2003-10-20
打赏
举报
回复
通過行號 定位到該記錄, 直接讀該 dbgrid 連接的 table!!
guolvguolv
2003-10-20
打赏
举报
回复
dbgride是通过DATASOURCE 和TABLE OR QUERRY相连
只要清楚是和什么东西相连就可以取出了
table1.fieldbyname('sdfadsf').asstring
tiger19760407
2003-10-20
打赏
举报
回复
我不清楚你所问的问题,此行号和对应的记录有什么关系,或者说此数据表对什么字段进行了排序?
dlp826
2003-10-20
打赏
举报
回复
错了一个字,应为:在DBGRID中,知道了行号和字段名的情况下怎样去取对应的字段值?
【Armv8/Armv9架构】-MMU专题
04、TTBR1_EL2寄存器有啥特殊性,这个寄存器是给谁使用的?05、有没有TTBR1_EL3寄存器?为什么?06、什么是memory-map? 一个ARM的系统中,有几套物理地址空间?07、页表到底有几级? 页表最少可以有几级?页表最多...
你知道微服务如何拆分,能
解决
哪些
问题
?
你知道微服务如何拆分,能
解决
哪些
问题
?你知道微服务如何拆分,能
解决
哪些
问题
?你知道微服务如何拆分,能
解决
哪些
问题
?你知道微服务如何拆分,能
解决
哪些
问题
?你知道微服务如何拆分,能
解决
哪些
问题
?你知道...
【计算机网络】数据链路层究竟
解决
了什么
问题
?
在交换机出现以前,搭建一个小型局域网的方法是通过 集线器 完成的。 集线器(Hub):有多个端口,可以连接多台电脑,但是...这个包是发送给谁的?谁应该接收? 大家都在发送,会不会产生混乱?怎么避免混乱的情...
ESB为我们
解决
了什么
问题
呢?
什么是ESB,为什么要用这个技术,这个技术
解决
了什么
问题
? ESB,Enterprise Service Bus,即企业服务总线。 这两天在看关于ESB的一些资料,但是看来...没弄明白这个
问题
,看多少资料也是徒劳。 以前,
区块链技术到底
解决
了什么
问题
?
对于这个
问题
,目前有很多说法:区块链
解决
了信任
问题
,区块链改变了生产关系,区块链实现了价值交互…… 这些说法都对,但都太宏观了,我们不妨把目光收回来,从一个微观角度来看这个
问题
。去中心化这个...
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章