你试试这个,但只能让你打开快,但是查看所有公共还是会慢。因为你有一条数据的内容比较大。
业务模型\业务系统\产品OA\信息发布\基类\发布查看\发布查看
找到:
with BasicInfo.MasterDataSet do
if not Active then Open;
替换成
lGuid := FuncBroker.Func.Parameters;
if lGuid='' then
begin
with BasicInfo.MasterDataSet do
if not Active then Open;
end
else
begin
with BasicInfo.MasterDataSet do
begin
sqlfilter:='FID='''+LGuid+'''';
sqlfiltered:=true;
if not Active then Open;
end;
end;
我的完整代码: