A Arleneqq Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-19 #21 我不太会用fr,但是有个想法:设组号为一个空格和一个数字,if 试验号=1 then 组号:=''; if 试验号=2 then 组号:=1。不知道行不行,献丑了。
H handwang Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-19 #22 aahben:可是那线怎么解决呢,我现在就是发愁,因为放组号的那个单元格是根据试验号自动合并的,然后居中显示,我觉得只能通过在delphi里面写程序控制。请问那为仁兄可以给我端源码看看。
M mstar Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-19 #23 居中就比较难了 目前好象只有 REPORTMACHINE 3.0 可以做到 不过这个客户也太刁了!
自 自由者 Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-19 #24 分组号居中,可以按如下办法: 1。在band中设置放组号的那个单元格 为“不重复显示”; 2。设置报表为“两便报表” 3。数据集设置为按组号+试验号 索引; 4。在frReport中的band中定义2变量,统计组号相同的band和当前组号 3。在报表的 OnEndBand 事件中,调整单元格位置。 procedure frReportEndBand(Band: TfrBand); begin if StrToInt(GroupMemo.Text)<>CurrentGroupNo then GroupMemo.Top:=GroupMemo.Top + (Band.Height * NumberOfGroup - GroupMemo.Height) div 2; end; 也可以设置单元格为“垂直居中”,然后动态调整高度。
分组号居中,可以按如下办法: 1。在band中设置放组号的那个单元格 为“不重复显示”; 2。设置报表为“两便报表” 3。数据集设置为按组号+试验号 索引; 4。在frReport中的band中定义2变量,统计组号相同的band和当前组号 3。在报表的 OnEndBand 事件中,调整单元格位置。 procedure frReportEndBand(Band: TfrBand); begin if StrToInt(GroupMemo.Text)<>CurrentGroupNo then GroupMemo.Top:=GroupMemo.Top + (Band.Height * NumberOfGroup - GroupMemo.Height) div 2; end; 也可以设置单元格为“垂直居中”,然后动态调整高度。