环思产品论坛

标题: 报表[垂直数据集]实现纵向排列报表 [打印本页]

作者: mengxiangduo 时间: 2015-5-7 16:40
标题: 报表[垂直数据集]实现纵向排列报表
本帖最后由 mengxiangduo 于 2015-5-7 16:44 编辑

1、横向数据纵向排列（在子报表中，用垂直数据集实现）
2、可以自动填充纵向数据的空行。（再次放了垂直数据集,加了句代码）

代码：
begin
  if TCustomADODataSet(TfrxDBDataSet(Report.GetDataSet('DipSample')).DataSet).RecordCount < 6 then
MasterData4.RowCount := 6 - TCustomADODataSet(TfrxDBDataSet(Report.GetDataSet('DipSample')).DataSet).RecordCount
  else
MasterData4.Visible := False;
end.

效果图：

作者: zhouyangping 时间: 2015-5-7 16:53
此报表,第一页把格子全部画好,子报表中不用加边框,这样就不用写代码控制子项补空格子了,也容易对整齐.

作者: mengxiangduo 时间: 2015-5-7 20:09
本帖最后由 mengxiangduo 于 2015-7-8 09:16 编辑

zhouyangping 发表于 2015-5-7 16:53
此报表,第一页把格子全部画好,子报表中不用加边框,这样就不用写代码控制子项补空格子了,也容易对整齐. ...

去掉子报表的框和空白行，可不用写代码实现空行。

在主页在，补齐空白行。

欢迎光临环思产品论坛 (http://bbs.huansi.cn/)