如何代码修改决策数据集在打印或预览时报表标题文字？急急**

cyw615

我按你写的代码试了，但出错！
DocViewXMFLHZ.DocClassID := '';
DocViewXMFLHZ.DocClassID := 'XMHZTJJCLF.FormDoc';  //DocView连接文档的ID
DecisionBroker.DataSet.LoadFromFile('c:\aa.dat');
最后一句出错！

cyw615

我按你写的代码试了，但出错！
DocViewXMFLHZ.DocClassID := '';
DocViewXMFLHZ.DocClassID := 'XMHZTJJCLF.FormDoc';  //DocView连接文档的ID
TDecisionDataSet(DecisionBroker.DataSet).DisplayName := '我的标题'; 　
这一句出错：TDecisionDataSet(DecisionBroker.DataSet).DisplayName := ''我的标题'; 　

lixy

楼主是什么版本的？
DecisionBroker.DataSet.LoadFromFile('c:\aa.dat');
这句是啥，我没写过。

lixy

我的TDecisionDataSet(DataSetBroker1.dataset).DisplayName
是普通的数据集代理
你的貌似不是。

cyw615

11 楼的代码写错了！你看12楼的
我们用的Ｘ３平台是2800

lixy

2800？ 奇怪了
这个是260*的问题、楼主可以试试这个方法

V2611解决了这个问题

修改
业务模型\系统空间\用户界面基础\界面\工具栏\打印预览
下的最后两行代码为：


procedure TPrintPreviewBar.actPrintExecute(Sender: TObject);
begin
  ExecuteAction(BizActnConsts.ActionPreviewPrint, nil);
end;

procedure TPrintPreviewBar.actPrintSetExecute(Sender: TObject);
begin
  ExecuteAction(BizActnConsts.ActionPreviewPageSetup, nil);
end;


打印预览为灰色的

cyw615

我打开看了，代码和你16楼发的一样：

procedure TPRINTPREVIEWBAR.actPrintExecute(Sender: TObject);
begin
  ExecuteAction(BizActnConsts.ActionPreviewPrint, nil);
end;

procedure TPRINTPREVIEWBAR.actPrintSetExecute(Sender: TObject);
begin
  ExecuteAction(BizActnConsts.ActionPreviewPageSetup, nil);
end;

但预览时还是不行

lixy

楼主一楼问题，标题能修改了吗？
请一个问题解决完毕再提出第二个问题。

cyw615

打印预览问题解决了！我重新安装了一下Ｘ３平台服务端程序后可以了
根据你说的办法已经可以修改决策数据集显示名称了，但修改后重新创建决策数据集时就报错

lixy

代码创建决策数据集
http://bbs.justep.com/forum.php? ... F%CA%FD%BE%DD%BC%AF
修改后重新创建报错。看看先前的释放资源没有。