报表[垂直数据集]实现纵向排列报表

mengxiangduo · 发表于 2015-5-7 16:40:16

本帖最后由 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:08

此报表,第一页把格子全部画好,子报表中不用加边框,这样就不用写代码控制子项补空格子了,也容易对整齐.

mengxiangduo · 发表于 2015-5-7 20:09:56

本帖最后由 mengxiangduo 于 2015-7-8 09:16 编辑

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

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

在主页在，补齐空白行。

		自动登录	找回密码
密码			立即注册