Query.Close;
Query.CommandText := 'Select a.* from OA_NEWSTABLE as a,OA_NEWSRANGE as b where a.Fid =b.FINFOID and getDate() <= a.FENDTIME and b.FPERSONID = '+SysUtils.QuotedStr(SystemCore.TSystemCore.Operator.Positions[0].PersonID) + '';
Query.Open;
DataSetBroker.DataSet := Query.Fields[0].DataSet as TDataSet;
在DataSetBroker.DataSet := Query.Fields[0].DataSet as TDataSet;赋值给datasetbroker时出现不能对只读属性赋值!