tsqldataset(dsbkq.DataSet).Close;
tsqldataset(dsbkq.DataSet).SQL.Clear;
tsqldataset(dsbkq.DataSet).SQL.Text := 'select bm,rq from KQGLMXB_KQ_ where bm = '''+bm+''' and rq between '''+p1+''' and '''+p2+''' and zt is not null';
dialogs.showmessage( tsqldataset(dsbkq.DataSet).DataFetch.CommandText);
显示出来的为什么不是'select bm,rq from KQGLMXB_KQ_ where bm = '''+bm+''' and rq between '''+p1+''' and '''+p2+''' and zt is not null';