分页签开启事件(tabsheetshow)的代码:
IF not (Self.DataSetBroker1.DataSet.FieldByName('FSTATUS').AsString='0') then
Self.DocView2.ReadOnly:=True
else
Self.DocView2.ReadOnly:=False;
根据状态来设置文档的只读性.这样的话 下拉字段就不能下拉了 只有数据集进入一下编辑状态才可以下拉 进入编辑状态之后 就算POST 也不会出现问题了
if Self.DataSetBroker1.DataSet.State=TDataSetState.dsBrowse then
begin
Self.DataSetBroker1.DataSet.Edit;
Self.DataSetBroker1.DataSet.Post;
end
else
begin
Self.DataSetBroker1.DataSet.Edit;
end;
这样一下子就好了
用DocView.RefreshDoc(True);也可以 不过是刷新 我这个功能不能这么用
PS:根据代码来切换DOCVIEW的ENABLE属性倒是没有问题 就是切换READONLY才出现问题 切换文档上某个DataEdit的READONLY也会出类似的问题