【搞定】分组展开**

Jsun2007

问题1：能否有代码能控制在一打开功能的时候就自动把各个分组展开
问题2：导出excel时，能否不展开组就能把组里的表格导出

Jsun2007

问题3：在datagrid中怎么分组

lixy

问题一：DataGrid1.FullExpand

问题二：你用代码自动展开下就行了。如果不让展开，而导出excel，好像没有办法

问题三 http://bbs.justep.com/forum.php? ... grid%2A%B7%D6%D7%E9
DataGrid.ColumnByName('DataGridBE1').GroupIndex := 0;
   DataGrid.ColumnByName('DataGridBE2').GroupIndex := 1;

Jsun2007

DataGrid1.FullExpand这个加在datagrid上还是功能的代码里

Jsun2007

我把代码加到如下事件里，打开功能时特别慢
在业务信息层加的打码如下：
procedure TYBPCB.DataGridCustomDrawCell(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TTreeListNode; AColumn: TTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean; var AText: string; var AColor: Integer; AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);
begin
  if not (ASelected or AFocused) then
    begin
      if (ANode.Index mod 2) = 1 then
        AColor := $0F0F0F0;
    end;

  DataGrid.FullExpand;

if ANode.HasChildren then
  begin
    //AColor := $0F0E0F0;
    //AFont.Size := AFont.Size + 2;
    AText := StringUtils.Copy(AText, StringUtils.Pos(':', AText) + 2, 10);
  end;

end;

jiahaiminghr

datagrid分组显示时，并没有把数据全部取到客户端。
DataGrid.FullExpand;后，数据会一次取到客户端来，这样速度肯定慢了。

可以在打印前展开。

lixy

楼主还有问题吗？请反馈

jiahaiminghr

由于长时间没有反馈，先结贴了！