**********关于dbgrideh内容的显示*******(50分)

  • 主题发起人 主题发起人 fhuibo
  • 开始时间 开始时间
F

fhuibo

Unregistered / Unconfirmed
GUEST, unregistred user!
sql数据库 人员表 A001 (id和编号为主键)<br>id &nbsp; 编号 &nbsp;户主姓名 &nbsp;姓名 &nbsp; 性别 &nbsp;与户主关系<br>0001 &nbsp;1 &nbsp; &nbsp; &nbsp; 张三 &nbsp; 张三 &nbsp; &nbsp;男 &nbsp; &nbsp; 户主<br>0001 &nbsp;2 &nbsp; &nbsp; &nbsp; 张三 &nbsp; 陈思思 &nbsp;女 &nbsp; &nbsp; 妻<br>0001 &nbsp;3 &nbsp; &nbsp; &nbsp; 张三 &nbsp; 张小三 &nbsp;男 &nbsp; &nbsp; 长子<br>0002 &nbsp;1 &nbsp; &nbsp; &nbsp; 李四 &nbsp; 李四 &nbsp; &nbsp;女 &nbsp; &nbsp; 户主<br>0002 &nbsp;2 &nbsp; &nbsp; &nbsp; 李四 &nbsp; 马六 &nbsp; &nbsp;男 &nbsp; &nbsp; 丈夫<br>0002 &nbsp;3 &nbsp; &nbsp; &nbsp; 李四 &nbsp; 李小四 &nbsp;女 &nbsp; &nbsp; 长女<br>请问怎么用dbgrideh 显示为下边的方式:就是把户主的姓名隐藏(除户主外)<br>id &nbsp; 编号 &nbsp;户主姓名 &nbsp;姓名 &nbsp; 性别 &nbsp;与户主关系<br>0001 &nbsp;1 &nbsp; &nbsp; &nbsp; 张三 &nbsp; 张三 &nbsp; &nbsp;男 &nbsp; &nbsp; 户主<br>0001 &nbsp;2 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;陈思思 &nbsp;女 &nbsp; &nbsp; 妻<br>0001 &nbsp;3 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;张小三 &nbsp;男 &nbsp; &nbsp; 长子<br>0002 &nbsp;1 &nbsp; &nbsp; &nbsp; 李四 &nbsp; 李四 &nbsp; &nbsp;女 &nbsp; &nbsp; 户主<br>0002 &nbsp;2 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;马六 &nbsp; &nbsp;男 &nbsp; &nbsp; 丈夫<br>0002 &nbsp;3 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;李小四 &nbsp;女 &nbsp; &nbsp; 长女
 
可以自己先用程序生成此格式的数据,然后再输出即可。
 
将表格列的 HideDuplicates设为True即可<br>如: DBGridEh1.Columns[1].HideDuplicates:=True;
 
同意樓上<br>&nbsp;DBGridEh1.Columns[1].HideDuplicates:=True;
 
长知识,呵呵,还真没这么用过
 
可是我用的 dbgrideh 没有该属性呀<br>HideDuplicates 请问版本号是多少,或者请发送到 fhuibo@163.com<br>必有重谢!!!
 
去盒子里找个最新的就行了
 
用SQL语句生成结果就可以了。<br><br>select id,编号,case when 与户主关系='户主' then 户主姓名 end 户主姓名,姓名,性别,与户主关系 from A001
 
你的数据有个特点,就是只有户主姓名和姓名相同的才显示户主姓名,假设这个规则成立的话,那么可以用ongettext来实现你要求的功能,具体的说,在户主姓名字段的ONGETTEXT方法中加上:<br>if 户主姓名&lt;&gt;姓名 then text:='' else text:=dataset.fieldbyname('户主姓名').asstring;<br>当然你如果找到DBGridEh1.Columns[1].HideDuplicates:=True;属性,这个是最好的方法。
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部