【结】决策数据集过滤

米老鼠 · 发表于 2010-8-31 10:39:03

决策数据集需要在选择原始数据时进行动态过滤。过滤条件很简单：室组代码=××，××是动态选择的。××的值是一个表的字段值，通过这个字段值的变化对原始数据进行过滤。
决策数据集是用表格文档和表单文档展现的。现在就是过滤条件变化了，但决策数据集数据不刷新。在论坛上找了一下，将文档关闭再打开也没刷新。想请教用什么方法在选择原始数据时进行动态过滤后决策数据集能刷新。

wuchao · 发表于 2010-8-31 10:51:50

麻烦您把过滤条件变化的代码贴上来看看

米老鼠 · 发表于 2010-8-31 16:03:27

procedure TRSPOSTQquery_MForm.DLComboBox_CHAMBERCloseUp(Sender: TObject; Accept: Boolean);
var
   lDeptID:string;
   lDataSet:TSQLDataSet;

begin

   lDeptID := DataSet_Chamber.DataSet.FieldByName('RSCHAMBERID').asString;
   DataSet_PARAM.DataSet.Open;
   DataSet_PARAM.DataSet.Edit ;
   DataSet_PARAM.DataSet.FieldByName('RSCHAMBERID').asString := lDeptID;
   DataSet_PARAM.DataSet.ApplyUpdates;

   DataSet_PARAM.DataSet.Refresh;
   DocViewRSPOSTRAB_RS_POST_LAT.Doc.Close;

   DSB_TDPostAbility_class.DataSet.Refresh;
   DocViewRSPOSTRAB_RS_POST_LAT.Doc.Open(TDocmode.dmEdit,DocViewRSPOSTRAB_RS_POST_LAT);

   DSB_TDPostAbility_class.DataSet.Refresh;

end;

jiahaiming · 发表于 2010-9-1 10:54:05

楼主，你试试：
DSB_TDPostAbility_class.DataSet.Close;
DSB_TDPostAbility_class.DataSet.Open;

米老鼠 · 发表于 2010-9-1 15:31:01

我加上了这2句，数据还是没有刷新

anla · 发表于 2010-9-1 19:54:59

要不楼主试着将sql语句中加入个参数，然后通过给参数赋值，打开数据集，刷新doc。

米老鼠 · 发表于 2010-9-2 10:59:01

按No.6 说的做了不行。
var
   lDeptID:string;
   lDataSet:TSQLDataSet;

begin

   lDeptID := DataSet_Chamber.DataSet.FieldByName('RSCHAMBERID').asString;
         CommonUserUtils.TCommonUserUtils.GetParam(Self.Context,'Biz:\CSEPDI_MIS\RS\RSPOSTPARAMGROUP.ParamGroup','RSCHAMBERIDPARAM').Value:=lDeptID;

   DSB_TDPostAbility_class.DataSet.Close;
   DSB_TDPostAbility_class.DataSet.Open;

   DocViewRSPOSTRAB_RS_POST_LAT.Doc.Close;
   DocViewRSPOSTRAB_RS_POST_LAT.Doc.Open(TDocmode.dmEdit,DocViewRSPOSTRAB_RS_POST_LAT);

   //DSB_TDPostAbility_class.DataSet.Refresh;

能不能模拟做个可行的告诉我？

end;

米老鼠 · 发表于 2010-9-3 10:51:22

能不能模拟做个可行的告诉我？

wuchao · 发表于 2010-9-3 11:31:52

目前还没有结果，有进展了会立刻给您反馈

米老鼠 · 发表于 2010-9-9 15:28:15

有结果了吗？希望能加快速度

		自动登录	找回密码
密码			立即注册