【结】急!!数据集刷新的问题

didi0225

DocView4.OpenMode := TDocMode.dmEdit;
//DocView4.DocClassID :='';
TSQLDataSet(DBroker_KF.DataSet).Close;
//TSQLDataSet(DBroker_KF.DataSet).SQLFiltered := False;
TSQLDataSet(DBroker_KF.DataSet).SQLFilter := 'ZCBH='''+strZDBH+'''';
TSQLDataSet(DBroker_KF.DataSet).SQLFiltered := True;
TSQLDataSet(DBroker_KF.DataSet).Open;
DataSetBrokerGH.DataSet.Refresh;
DocView4.OpenMode := TDocMode.dmEdit;

数据集有主从关系。在新增一条数据之后执行上面的代码。
数据记录没有刷新出来，还是原来的数据。
但把功能关闭再打开，还是执行上面的代码，刚才新增的数据才显示出来。请问是什么原因导致？

aDragon

看不大明白，你要新增哪个数据集的数据，DOCVIEW4关联哪个数据集呢

didi0225

最初由 aDragon 发布
[B]看不大明白，你要新增哪个数据集的数据，DOCVIEW4关联哪个数据集呢 [/B]

因为设计表单的需要，现在有三个数据集，但都是操作同一张表的。
主数据集DBroker_KF是  门诊开方
从数据集1是 门诊开方-处方号   1与主数据集设置主从 诊查编号
从数据集2是 门诊开方-药品     2与1 设置主从        处方号

现在过滤的主数据集的字段 诊查编号
DOCVIEW4关联的是主数据集

didi0225

上面第一行DBGRID的原来的数据。
分别对应主数据集 从数据集1  从数据集2
第二行DBGRID是新增之后的数据。
但从数据集2的药品应该有两条的。
正确效果如图。这是关闭再打开功能后的效果

aDragon

我没有完全看明白，大概理解就是你想新增主表之后，从表的数据集里面要能刷新出新增的单号，如果是这样的话，你首先要保证主表一定要提交数据，就是applyupdates

didi0225

已经提交了啊？不然关闭再打开功能之后怎么会出正确了的数据？

didi0225

procedure TZC.Button1Click(Sender: TObject);
begin
DocView4.OpenMode := TDocMode.dmEdit;
TSQLDataSet(DBroker_KF.DataSet).Close;
TSQLDataSet(DBroker_KF.DataSet).SQLFiltered := False;
TSQLDataSet(DBroker_KF.DataSet).SQLFilter := 'ZCBH='''+Edit1.Text+'''';
TSQLDataSet(DBroker_KF.DataSet).SQLFiltered := True;
TSQLDataSet(DBroker_KF.DataSet).Open;
DocView4.OpenMode := TDocMode.dmPreview;
end;
这是一按钮事件，新增一条数据之后，我把 诊查编号 赋给
Edit1.Text。  单击按钮数据还是旧的数据。
但把功能关闭再打开之后我再执行这个事件，数据变为新的正确的了。
不知道是什么原因。

lixy

DocView4.close加到最上面

aDragon

开方号这个数据集什么时候刷新的？
DBroker_KF是主数据集吧

didi0225

添加数据之后刷新的
DBroker_KF是主数据集