FastReport 打印 DBgridEh 的问题！

2011-09-18 10:17:05 173 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

【控件功能】我来做练习-第8课-Fastreport动态定义内容打印 Fastreport动态定义内容打印阅读详情

这是FAST打印StringGrid DEMO中的代码，将StringGrid的每行每列循环赋值给FAST。

var

  Cross: TfrxCrossView;

  i, j: Integer;

begin

  if c is TfrxCrossView then

  begin

    Cross := TfrxCrossView(c);

    for i := 1 to 16 do

      for j := 1 to 16 do

        Cross.AddValue([i], [j], [StringGrid1.Cells[i - 1, j - 1]]);

  end;

以下是自己写的



var

  Cross: TfrxCrossView;

  i, j: Integer;

begin

  if c is TfrxCrossView then

  begin

    Cross := TfrxCrossView(c);

      for j:=1 to dbgrdh2.RowCount do // 行数 (这里只能得到显示在FM的行数，而不是总的行数)

        for i := 1 to dbgrdh2.Columns.Count do //列数

        begin

          Cross.AddValue([j], [i],[dbgrdh2.SelectedRows.Items[i-1]]);

//这里的代码不对,应该是[dbgrdh2.行数.列数]的数据（不知道的怎么写）;



        end;

  end;

end;