【没搞定】datagrid分组后，数据集append就报错。

shanshengsheng

datagrid分组后，数据集append就报错。


怕被说重现不了，特提供代码
分组代码：
  DataGrid.AddGroupColumn(DataGridField1);
  DataGrid.addgroupcolumn(DataGridField2);
数据集append代码：

dsbPerson.DataSet.Append;


请问怎么办？开始怀疑是其他错误，把事件全部去掉了，还是报错。但是如果吧分组代码去掉的话就不报错了

atiger

我在2819上，做了一个简单的例子，没有能重新楼主说的问题

功能上的代码如下：
unit MainForm;

interface

uses
  Business.System, Business.Model, Business.Forms, Business.Data;

type
  TMainForm = class(TForm)
    FuncBroker: TFuncBroker;
    InfoBrokerLCXX: TInfoBroker;
    ControlBar: TControlBar;
    DataNavigator: TDataNavigator;
    DocViewBar: TDocViewBar;
    Panel: TPanel;
    DocViewLCXX_SJWG1: TDocView;
    DataGrid1: TDataGrid;
    DataSetBroker1: TDataSetBroker;
    Button1: TButton;
    Button2: TButton;
    DataGrid1GJZ: TDataGridColumn;
    DataGrid1LCZD: TDataGridColumn;
    DataGrid1XSMC: TDataGridColumn;
    DataGrid1RQ: TDataGridColumn;
    DataGrid1aa: TDataGridColumn;
    DataGrid1aaa: TDataGridColumn;
    DataGrid1wb: TDataGridColumn;
    DataGrid1buttons: TDataGridColumn;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation


procedure TMainForm.Button1Click(Sender: TObject);
begin
  DataGrid1.AddGroupColumn(DataGrid1LCZD);
  DataGrid1.addgroupcolumn(DataGrid1XSMC);
end;

procedure TMainForm.Button2Click(Sender: TObject);
begin
  DataSetBroker1.DataSet.Append;
end;

end.

shanshengsheng

哦，不好意思。没说版本，我们是2809，而且坚决不升级

atiger

这跟版本没有关系。我在2809上测试也是ok的。
不过楼主的一句“坚决不升级”让我摸不着头脑了

shanshengsheng

呵呵
但是我在2809上就是有问题啊，即使新建一个啥都没有的datagrid测试还是一样的，楼上的还能把你装的2809发来我装下试试啊

atiger

这样吧，你把你简单做的例子发上来我看看。

因为我没有用按照盘按照的，直接拷贝的文件。

如果我还原你的东东也不能再现，我再想办法上传。

atiger

??

shanshengsheng

也不知道啥打包工具，就一个测试功能也要5M多

atiger

楼主，如果数据集中没有数据，增加记录就报错，如果有数据就正常，是这样吗？
这是我通过你的资源包测试出来的结果

shanshengsheng

是的。怎么办呢