怎么合并重复的列？ ( 积分: 40 )

  • 主题发起人 主题发起人 我爱下雪天
  • 开始时间 开始时间
我

我爱下雪天

Unregistered / Unconfirmed
GUEST, unregistred user!
已知 tab1
name num sum
-----------------------
tom 1 100.2
tom 2 100.2
tom 3 100.2
-----------------------
rose 2 105
rose 3 105
求 tab2
name num sum
----------------------
tom 1 100.2
2
3
----------------------
rose 2 105
3
我用qr的，tab1是我的视图的结果集，我用QRGroup还是没有做好，请高手指点
 
已知 tab1
name num sum
-----------------------
tom 1 100.2
tom 2 100.2
tom 3 100.2
-----------------------
rose 2 105
rose 3 105
求 tab2
name num sum
----------------------
tom 1 100.2
2
3
----------------------
rose 2 105
3
我用qr的，tab1是我的视图的结果集，我用QRGroup还是没有做好，请高手指点
 
个位对齐是你的界面显示问题（精确到小数点后面2位，右对齐），和SQL语句没有关系
 
我用QR做的报表，怎么显示如上图
 
兩個for循序，找到相同字段就賦空值
 
TO：dcs_dcs
能不能指点一下呀
 
用QRGroup来实现，在Expression处输入你需要分组的字段名，最好是通过生成器生成
顺便还可以给你的每一个组加上合计
 
我用QRGroup还是没有做好，请高手指点,up一下
 
晕~~怎么没有人帮我呀？再up
 
procedure Tform1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect;
DataCol: Integer;
Column: TColumn;
State: TGridDrawState);
begin
with DBGrid1do
if datacol=2 then
//假設你不要重復顯示的那一列是第三列
begin
if trim(DBGrid1.DataSource.DataSet.FieldByName('cp_rev').AsString)=text then
begin
Canvas.font.Color := clWhite;
//白色字體
Canvas.fillrect(rect);
DefaultDrawColumnCell(Rect,datacol,column,state);
end
else
text :=DBGrid1.DataSource.DataSet.FieldbyName('cp_rev').AsString;
//第三列的字段值
end;
end;
 
楼主改题了吧？佩服！
 
惭愧，自己不懂呀，又没有分，悲哀中。。。
 
to 76887938
我用qr的，tab1是我的视图的结果集，能不能教我怎么在quickreport中实现呀，多谢了
 
没有人吗？？？
 
看来分数少了是没有人理呀？？？
郁闷中。。。
 
可以改变query的查询的结果,在OnGetText里面处理一下.
 
大虾们能不能给各例子或者sql语句，最好能通过设置属性什么的能达到效果，再次感谢
 
您必须登录或注册才可回复。

Similar threads

D
[原]OrangeUI－Delphi移动开发利器
回复
0
查看
2K
DelphiTeacher的专栏
D
D
[原]OrangeUI之ListView的简单介绍
回复
0
查看
2K
DelphiTeacher的专栏
D
D
[原]OrangeUI之ListView的简单介绍
回复
0
查看
1K
DelphiTeacher的专栏
D
D
[原]OrangeUI－Delphi移动开发利器
回复
0
查看
2K
DelphiTeacher的专栏
D
D
[原]OrangeUI－Delphi移动开发利器
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部