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';