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:= dsR; // 主从报表部分代码
ClientDataSet_Sub.MasterFields:='BH';
转载于:https://blog.51cto.com/kaixinbuliao/1703839