DMRptWound := TDMRptWound.Create(Application);
dbgGather.DataSource := DMRptWound.dsWoundNum;
dbgList.DataSource := DMRptWound.dsWoundNumList;
dbgWoundPayGh.DataSource :=DMRptWound.dsWoundPay;
dbgWoundPayLs.DataSource :=DMRptWound.dsWoundPayLs;
如果将下面4行注释了就不会保错,当然也达不到我要的效果了