【搞定】[请求]求助TSheetDoc若干问题**

athur1980 · 发表于 2007-12-14 10:39:03

最初由 lixy 发布
[B]不建议直接控制sheetdoc。把问题简单化多好，做2个表格文档。只需要画2次表格，不需要代码。 [/B]

OK，先放弃代码，看论坛上别的同志用代码解决...疑惑

athur1980 · 发表于 2007-12-14 11:04:34

最初由 atiger 发布
[B]路过，
运行后老是抱错?
请把原始的错误信息帖出来看看呢。

不过8楼也是一个直观简单的方法，呵呵。 [/B]

弹出这个错误，打印页就出不来

atiger · 发表于 2007-12-14 11:14:57

哦，如果有时间，楼主可以跟踪一下，执行哪句报出来的？

athur1980 · 发表于 2007-12-14 12:13:31

最初由 atiger 发布
[B]哦，如果有时间，楼主可以跟踪一下，执行哪句报出来的？ [/B]

procedure TFORM_XMCGSBGZ.DocViewBarBeforeAction(Sender: TObject; var Accept: Boolean);
begin
   INFO_XMZBCGSBGZ.TLIST_XMZBCGSBGZDCD(DocViewINFO_XMZBCGSBGZ_LIST_XMZBCGSBGZDCD.Doc).Sheet.RowHeights[7]:=0;
   INFO_XMZBCGSBGZ.TLIST_XMZBCGSBGZDCD(DocViewINFO_XMZBCGSBGZ_LIST_XMZBCGSBGZDCD.Doc).Sheet.RowHeights[9]:=0;
   INFO_XMZBCGSBGZ.TLIST_XMZBCGSBGZDCD(DocViewINFO_XMZBCGSBGZ_LIST_XMZBCGSBGZDCD.Doc).Sheet.RowHeights[11]:=0;
   INFO_XMZBCGSBGZ.TLIST_XMZBCGSBGZDCD(DocViewINFO_XMZBCGSBGZ_LIST_XMZBCGSBGZDCD.Doc).Sheet.RowHeights[14]:=0;
   DocViewINFO_XMZBCGSBGZ_LIST_XMZBCGSBGZDCD.Doc.Close;
   DocViewINFO_XMZBCGSBGZ_LIST_XMZBCGSBGZDCD.OpenView(TDocMode.dmEdit);
end;
运行到end报错,奇怪了

athur1980 · 发表于 2007-12-14 12:19:49

是我放错了事件吗?还是这个事件不支持?

yancm · 发表于 2007-12-14 14:04:42

您写这些代码是干什么的？打印之前用编辑模式打开文档？奇异的思路阿。您想干嘛？

atiger · 发表于 2007-12-14 15:30:41

对，不能在DocViewBar 的 onBeforeAction 这个事件上执行这样的代码，原先的帖子误导了。

DocViewBar 的 onBeforeAction 上一般做写检查，例如是否允许打印，或者控制文档上的按钮或者控件的显示等等这样的处理

athur1980 · 发表于 2007-12-15 13:14:36

把代码当公式用是我失误，我以后注意
这个帖子可以结了

atiger · 发表于 2007-12-15 14:16:16

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