【结帖】排序问题**

shangxy

databroker.dataset.order

ccseasy

哪有databroker啊？不是就一个TInfoBroker和TFuncBroker吗？

shangxy

那就自己放一个呗？或者直接在信息层实现。

ccseasy

我在功能层实现的，放了一个datasetbroker，代码如下：
procedure TBGSDJCX_CK.DocViewBarBeforeAction(Sender: TObject; var Accept: Boolean);
begin
  if TBizDocAction(Sender).ID =BizActnConsts.ActionPrintPreview then
   begin
    DataSetBroker2.DataSet.Order:='swrq asc';
   end;
end;

但是点击打印浏览是没有变化，你试试。

ccseasy

首先：我数据集的取数据方案设的是10，排序是降序
我想打印时把数据全打印出来（大概几百条），排序是升序
问题是：写了代码后打印浏览时还是10条，并且还是降序，没按代码执行。

我的代码实现如下：
procedure TBGSDJCX_CK.DocViewBarBeforeAction(Sender: TObject; var Accept: Boolean);
begin
  if TBizDocAction(Sender).ID =BizActnConsts.ActionPrintPreview then
   begin
       jsdialogs.ShowMsg('a','cation');
       DataSetBroker2.DataSet.Order:='swrq asc';
       DataSetBroker2.DataSet.DataFetch.PageRecords:=-1;
   end;
end;

这是怎么回事？是不是又是缺陷？

atiger

取消分组，需要重新打开数据集
  DataSetBroker1.DataSet.DataFetch.PageRecords:=-1;
   DataSetBroker1.DataSet.Close;
   DataSetBroker1.DataSet.Open;
   DataSetBroker1.DataSet.order :='FID';

ccseasy

数据全出来了
但是没有排序

jiahaiminghr

DataSetBroker1.DataSet.order :='FID';

ccseasy

？

ccseasy

最初由 jiahaiminghr 发布
[B]DataSetBroker1.DataSet.order :='FID'; [/B]

我写这句话了