谁能告诉我,如何用fastreport制作数据源为stringgrid的""""标签式"""""报表? (200分)

  • 主题发起人 主题发起人 dbb2tkw
  • 开始时间 开始时间
D

dbb2tkw

Unregistered / Unconfirmed
GUEST, unregistred user!
比如每到一出现一个stringgrid中的cells的值为1的情况下,就开始显示下一个标签式报表!
 
什么意思? 下一个标签式报表? 没懂 . 拷了我的一段GetValue来灌水.
procedure TFormSGVTasksMan.frReport1GetValue(const ParName: String;
var ParValue: Variant);
var
i : integer;
begin
for i := 0 to 10do
//GridVTaskMan.VisibleColCount - 1do
//这里没有判断中间是否有隐藏列,因为我将隐藏列放在了Grid的最后
if ParName = 'Cell' + intToStr(i) then
begin
try //sPrintTypeStr 值是在打印调用前根据用户选择设置.
if (sPrintTypeStr = '自检') or (sPrintTypeStr = '送检') then
begin
if i = 0 then
//打印的记录序号,不是全部打印时,序号不能使用GridVTaskPlan的序号,否则中间会有不连续.
ParValue := intTostr(RowDataSet.RecNo + 1)
else
ParValue := GridVTaskMan.Cells[i, strToInt(sPrintRowNoList[RowDataSet.RecNo])];
end
else
ParValue := GridVTaskMan.Cells[i, RowDataSet.RecNo + 1];
break;
except
ParValue := '';
break;
end;
//ParValue := GridVTaskMan.Cells[i, RowDataSet.RecNo + 1];
//break;
end;

end;
 
thanks,但不是我要的答案
 
说明白一点,不太懂你要问的具体问题是什么?
 
我在做一个分部门营业情况分发概要,也就是说每个分部门的营业情况,表1中有各个部门的名称和序号, 表2由各个分部门的序号和名称, 表3各个分部门的营业情况, 为了得到每个
部门下的多个分部门的营业情况,利用多个table循环过滤得到想要的数据,并放入stringgrid中, 如图:
部门 分部门 交易额 人次
部门1 分部门1 34 4
分部门2 44 5
分部门5 42 9
小计 120 18
部门 分部门 交易额 人次
部门3 分部门3 22 2
分部门4 2 22
小计 24 24
现在要求把这些数据放入fastreport中, 并要求在每个小计之后,就出现一个裁剪线!!然后出现下一个部门的数据!!上回没说清楚,这会大家应该明白点吧?




 
^_^
我来了!
fastReport没有过,不过reportMachine是从他来的,有着个选项
这个可用合并重复值实现!
 
接受答案了.
 

Similar threads

S
回复
0
查看
838
SUNSTONE的Delphi笔记
S
S
回复
0
查看
799
SUNSTONE的Delphi笔记
S
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
后退
顶部