【结贴】自定义DataGrid分组列显示内容

matthaus

如下图分别是DataGrid数据源和实现自定义分组列显示内容的代码
图片，以及运行后的效果图，不知道在哪里出现错误了，请帮忙
看看怎么解决吧。

matthaus

代码遍历的数据集代理控件

matthaus

自定义分组列显示内容代码

matthaus

运行效果图

matthaus

全部代码

atiger

正在处理有结果马上跟贴告知

atiger

参考代码如下

procedure TMainForm.BizFormShow(Sender: TObject);
begin
    DataSetBroker2.DataSet.Open;
    DataSetBroker2.DataSet.First;
    DataSetBroker1.DataSet.Open;
    DataSetBroker1.DataSet.First;
end;

procedure TMainForm.DataGrid1CustomDrawCell(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);
var
  lstr : String;
begin
  if ANode.HasChildren then
    begin
    lstr := StringUtils.Copy(AText, StringUtils.Pos(':', AText) + 2, 10);
    AText := Sysutils.IntToStr(DataSetBroker2.DataSet.recno)+': '+ StringUtils.Copy(AText, StringUtils.Pos(':', AText) + 2, 10);
    DataSetBroker2.DataSet.Next;
    end;
end;

procedure TMainForm.DataGrid1Click(Sender: TObject);
begin
  DataSetBroker2.DataSet.First;
end;

procedure TMainForm.DataGrid1Expanded(Sender: TObject; Node: TTreeListNode);
begin
  DataSetBroker2.DataSet.First;
end;

procedure TMainForm.DataGrid1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
    DataSetBroker2.DataSet.First;
end;

procedure TMainForm.DataGrid1Collapsed(Sender: TObject; Node: TTreeListNode);
begin
   DataSetBroker2.DataSet.First;
end;

DataSetBroker1 是分组的数据及，DataSetBroker2 是序号那个数据集，ZD2 是分组字段
DataSetBroker1 对应的数据集的SQL语句为
SELECT SJB1.ZD1, SJB1.ZD2, SJB1.SJ
  FROM SJB1
  ORDER BY SJB1.ZD2

DataSetBroker2 对应的数据集的SQL语句为
SELECT DISTINCT ZD2
  FROM SJB1

附件是运行的效果图

matthaus

我这边是窗体上有一个DataSetBroker1控件和DataGrid中的DataSetBroker2控件代理的是
同一个数据集A,请问在窗体的OnShow事件打开A后，在DataGrid中还需要用DataSetBroker2
打开A吗，在哪里打开呢？现在出现问题是执行DataGrid的Expanded事件时系统提示A没有打开。

atiger

已经电话沟通，在DataSetBroker1 的open事件上open DataSetBroker2就可以了

matthaus

DataGrid的Expanded事件在DataSetBroker1 的open事件之前执行了，所以系统还是报数据集
没有打开的错误，看来在只能在DataGrid的Expanded打开数据集了。