在DBGRID中怎么取得某一行某一列的数据?

ngyxh 2003-06-11 04:43:43
在DBGRID中怎么取得某一行某一列的数据?
...全文
119 17 打赏 收藏 转发到动态 举报
写回复
用AI写文章
17 条回复
切换为时间正序
请发表友善的回复…
发表回复
nightking 2003-06-17
  • 打赏
  • 举报
回复
mark
wjb 2003-06-17
  • 打赏
  • 举报
回复
ok
DelphiLover2002 2003-06-17
  • 打赏
  • 举报
回复
由于记录是在指定的那行,所以
xyz=adoquery1.fieldvalues['xxx']就可以读数了
Means_pan 2003-06-17
  • 打赏
  • 举报
回复
with DBGridEh1.DataSource.DataSet do
for p:=0 to DBGridEh1.SelectedRows.Count-1 do begin
GotoBookmark(pointer(DBGridEh1.SelectedRows.Items[p]));
s:=s+Fields[0].AsString;
end;
李_军 2003-06-11
  • 打赏
  • 举报
回复
type
TFakeGrid= Class of TDBGrid;

然后你就可以用
TFakeGrid(YourGrid).col
TFakeGrid(YourGrid).row
l_xiaofeng 2003-06-11
  • 打赏
  • 举报
回复
dbgrid1.datasource.dataset.first;
dbgrid1.datasource.dataset.moveby(3-1);
dbgrid1.datasource.dataset.fields[2-1].asstring:='5';

那我就捡点分,同意一下大飞虫吧!
samcrm 2003-06-11
  • 打赏
  • 举报
回复
取得任意某一行某一列的数据,在DBGrid的OnDellClick事件写

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
ShowMessage(Column.Grid.SelectedField.Value);
end;
root3646 2003-06-11
  • 打赏
  • 举报
回复
跟风!up
ngyxh 2003-06-11
  • 打赏
  • 举报
回复
谢谢大家,如果给的代码没错的话.一定给分.
flyingkiller 2003-06-11
  • 打赏
  • 举报
回复
dbgrid1.datasource.dataset.first;
dbgrid1.datasource.dataset.moveby(3-1);
dbgrid1.datasource.dataset.fields[2-1].asstring:='5';

hanzq 2003-06-11
  • 打赏
  • 举报
回复
二楼的也正确
ngyxh 2003-06-11
  • 打赏
  • 举报
回复
比如我想要让当前指针的第二列等于'5'

DBGrid1.Fields[1].AsString:='5';

那想要让第三行第二列等于'5'应该怎么写啊.
outer2000 2003-06-11
  • 打赏
  • 举报
回复
DBGrid1.DataSource.DataSet.Fields[n].value
soaringsouth 2003-06-11
  • 打赏
  • 举报
回复
定位:
dbgrid1.DataSource.DataSet.Locate('FieldName',FieldValue,[]);
xzhbaggio 2003-06-11
  • 打赏
  • 举报
回复
一楼的正确
hammer_shi 2003-06-11
  • 打赏
  • 举报
回复
你要选择某一行,随后使用QUERY.FIELDBYNAME(字段名).AS****
你可以看看有query.first.query.next等属性


************************************************
对不起,是我的网络慢,若有雷同请勿责怪
我的动力就是你尽早揭帖
************************************************
soaringsouth 2003-06-11
  • 打赏
  • 举报
回复
DBGrid1.DataSource.DataSet.FieldByName('FieldsName').AsString;
DBGrid1.DataSource.DataSet.Fields.Fields[n].AsString;
都是当前列
reprint 使用说明 本人长期使用delphi做数据库的开发,报表控件使用Quickrpt,在打印上经常遇到一些问题,于是自己经常编写一部分打印的程序,经过总结开发了这个控件。 本控件可打印 datasource,dbgrid,stringgrid. 一 、控件属性: 1、colstitle 设置报表的标题属性 (1)alignment 标题对齐方式。 (2)font 标题字体 (3)print 设置是否打印标题 (4)rowspace 标题行的高度 2、datasource 选择要打印的datasource 3、dbgrid 选择要打印的dbgrid 4、stringgrid 选择要打印的stringgrid 5、detail 设置要打印的明细数据属性 (1)arrange 设置明细字段排方向 Horizontal 横向打印(默认的一般打印) Vertical 竖向打印(字段竖向排适合打印字段内容较长的报表如“会议纪录”) (2)aotureturn 打印明细字段时,如果字段超过的宽度是否允许自动换行 (3)colsline 设置竖线属性引用tpen类 (4)footer 设置明细尾 (5)frame 设置明细边框属性引用tpen类 (6)head 设置明细头同footer (7)rowsline 设置横线属性引用tpen类 (8)rowspace 设置明细行的高度 (9)top 明细与标题的距离 6、page 设置纸张的上下左右边距 7、pagefooter 设置页脚同明细尾 8、pageheader 设置页眉同页脚 9、printobject 选择要打印的对象 (datasource 、dbgrid、 stringgrid ) 10、title 设置标题类页眉、页脚 二 、控件方法: (1) preview 预览 (2) print 打印 (3) SaveToFile() 保存为报表文件 (4) SaveToStream() 保存为流(然后就可把整个报表存到数据库了很方便哦! ~_~) (5) PrintFile() 打印报表文件 (6) PrintStream() 打印流(流的数据库存取就不用多说了吧) (7) PreviewFile() 预览文件 (8) PreviewStream() 预览流 (9) OptionToStream() 报表的属性保存为流 (10) OptionFromStream() 从流得到报表属性 三、 控件事件: AfterPrint 打印后 BeforePrint 打印前 (本来很多事件,但没有预览,后来加上预览以及一些方法后实现很困难就去掉了!) 四、注意事项 (1) text 属性,输入“¦;;;;;;;#¦;;;;;;;”打印页码值,如果想打印页码可输入“第¦;;;;;;;#¦;;;;;;;页” 输入“¦;;;;;;;RecordCount¦;;;;;;;”打印 记录数 (2) 不同的打印机,打印和预览效果可能有一点点不同(保证数据打印完全正确一致)。本人用一台针式和一台激光打印机做测试,开始差别较大后经过调试基本一致,不知其他打印机如何。 就这些个吧基本满足了我的软件开发需要,解决了很多问题,关键是做报表省了很大力气,当然了很复杂的报表还是要其它报表控件来解决。如果有其他问题或好的建议可与我联系。 程序设计:吴进昊 E-mail :jinhaowu@hotmail.com qq :54254770 2003.01.03
你的 DBGrid 需要合计行吗?想做出速达 E2 一样的单据录入界面吗?有了 QLGrid Suite,这些都不是问题! TQLDBGrid --------- 1、国财务凭证式的金额显示。各显示位之间的分隔线颜色可自行定义,并可在标题行上显示“...万千百十个角分”!!! 2、支持多种方式的合计行。支持合计、平均、计数、文本等方式的合计行。国财务凭证式的金额显示在合计行上同样适用。合计行的颜色可自行定义!!! 3、可在 Grid 的各上嵌入任意控件来代替默认编辑器,例如可在布尔型字段的上嵌入 DBCheckBox,在一只读或计算字段的上嵌入 DBEdit!!! 4、支持交替式的行颜色显示。奇数行和偶数行可定义不同的颜色 5、自适应宽度。Grid 的各的宽度随 Grid 宽度的改变可自行调整宽度,使其始终填充整个 Grid 客户区域 6、回车键转换为制表键。可将回车键当作制表键来处理,使用户敲回车键时自动转入下一或行,输入数据更快速方便 7、结合 TQLQRDBGridBuilder 自动生成 QuickReport 报表,省去手工制作报表的麻烦!!! 8、结合 TDBLookupComboBox 实现输入内容按拼音码查找(如同速达 E2 的品名输入方式),而不必在大量的产品目录来回查找或强迫用户记忆大量的产品代码!!! 9、继承自标准的 TDBGrid,使用 TDBGrid 或其子类开发的现有程序可实现平滑升级 更多强大的特性.... TQLDBLookupComboBox ------------------- 标准 DBLookupComboBox 的替代品,提供了方便国用户使用的强大特性 1、弹出的表框的内容可按拼音码或原文(包含方式)查找!!! 2、弹出的表框的下面可显示相应的操作按钮,如显示新建、修改、置空按钮来针对当前记录提供操作!!! 3、属性完全兼容 TDBLookupComboBox ......

5,392

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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