导航:
论坛 -> 数据库专区
斑竹:liumazi,waterstone
作者:
glwang (glwang)
★☆☆☆☆
-
盒子活跃会员
2019/4/30 16:20:28
标题:
请问数据网格控件DBGrid如何改变单元格里面从数据库表中检索出的某个字段的显示字符串?
浏览:1254
加入我的收藏
楼主:
例如从表中检索到的字段数值是:0 ,则这个DBGrid单元格显示汉字:无,如果检索到的字段数值是:1 ,则这个DBGrid单元格显示汉字:有。
----------------------------------------------
作者:
2019/4/30 17:28:38
1楼:
procedure TForm1.OnMyFieldGetText(Sender: TField; var Text: string; DisplayText: Boolean); begin if Sender.asInteger = 0 then Text := '无' else Text : = '有'; end; procedure TForm1.MyQueryAfterOpen(DataSet: TDataSet); begin DataSet.FieldByName('字段').OnGetText := OnMyFieldGetText; end;
----------------------------------------------
Delphi4Linux Delphi三层/FireDAC 技术群:734515869 http://www.cnblogs.com/rtcmw
作者:
glwang (glwang)
★☆☆☆☆
-
盒子活跃会员
2019/5/3 9:20:40
2楼:
感谢全能
----------------------------------------------