5,379
社区成员
发帖
与我相关
我的任务
分享
ClientDataSet_Master:=TClientDataSet.Create(nil);
ClientDataSet_Master.FieldDefs.Add('id',ftstring,50);
ClientDataSet_Master.FieldDefs.Add('path',ftstring,50);
ClientDataSet_Master.CreateDataSet;
ClientDataSet_Master.Active;
ClientDataSet_Sub:=TClientDataSet.Create(nil);
ClientDataSet_Sub.FieldDefs.Add('id',ftstring,50);
ClientDataSet_Sub.FieldDefs.Add('date',ftstring,10);
ClientDataSet_Sub.FieldDefs.Add('statvalue',ftstring,10);
ClientDataSet_Sub.CreateDataSet;
ClientDataSet_Sub.Active;
ClientDataSet_Master.FieldDefs.Add('BH',ftstring,8);
ClientDataSet_Master.FieldDefs.Add('path',ftstring,50);
ClientDataSet_Master.IndexFieldNames:='BH'; //========加上此句
ClientDataSet_Master.CreateDataSet;
ClientDataSet_Master.Active;
ClientDataSet_Sub:=TClientDataSet.Create(self);
ClientDataSet_Sub.FieldDefs.Add('BH',ftstring,8);
ClientDataSet_Sub.FieldDefs.Add('date',ftstring,10);
ClientDataSet_Sub.IndexFieldNames:='BH'; //=========加上此句
ClientDataSet_Sub.CreateDataSet;
ClientDataSet_Sub.Active;
ClientDataSet_Sub.MasterSource:= DataSource1; // 主从报表部分代码
ClientDataSet_Sub.MasterFields:='BH';
DataSource1.DataSet:= ClientDataSet_Master;
ClientDataSet_Master.Active:=true;
DataSource2.DataSet:= ClientDataSet_Sub;
ClientDataSet_Sub.Active:=true;
procedure TForm1.Button1Click(Sender: TObject);
var
ClientDataSet_Master:TClientDataSet;
ClientDataSet_Sub:TClientDataSet;
begin
ClientDataSet_Master:=TClientDataSet.Create(self);
ClientDataSet_Master.FieldDefs.Add('id',ftstring,50);
ClientDataSet_Master.FieldDefs.Add('path',ftstring,50);
ClientDataSet_Master.CreateDataSet;
ClientDataSet_Sub:=TClientDataSet.Create(self);
ClientDataSet_Sub.FieldDefs.Add('id',ftstring,50);
ClientDataSet_Sub.FieldDefs.Add('date',ftstring,10);
ClientDataSet_Sub.FieldDefs.Add('statvalue',ftstring,10);
ClientDataSet_Sub.CreateDataSet;
ClientDataSet_Sub.MasterSource:= DataSource1;
ClientDataSet_Sub.MasterFields:='id';
ClientDataSet_Master.Active;
ClientDataSet_Sub.Active;
end;
{两个ClientDataset定义部分}
ClientDataSet_Sub.MasterSource:= DataSource1;
ClientDataSet_Sub.MasterFields:='id';