度量快速开发平台-专业、快速的软件定制快开平台

标题: 度量快速开发平台：向word文档中书签填充值 [打印本页]

作者: 张兴康 时间: 2020-7-22 10:09
标题: 度量快速开发平台：向word文档中书签填充值

度量快速开发平台office部件主要用于在平台中处理WORD\EXCEL文档，WORD的优越性在于其排版打印方便，而且能够做到修改留痕，度量快速开发平台中的word部件，充分利用了这两点，不但能将数据填充到已设置好的word模板，将其作为显示和打印文件的工具，同时还能直接书写、编辑、保存文档，配合工作流，可以将文档转给其它人处理或留痕审批甚至手写批注。

下面就是如何在度量快速开发平台中，向office部件中的书签填充值的示例代码：

' FieldName:触发值变化的字段名。

dim e = Me.GetEventArgs()

if e.FieldName="编号" then

'当记录部件中编号字段值发生变化时，将该值赋值给office中书签“编号”

Office部件1.SetBookMarkValue("编号",记录部件1.GetFieldValue("编号"))

end if

--------------------------------------------------------------------------------------------------------------------

' Value:触发值变化的字段的值。

dim zongjia = 0.00

if e.Value1 = "中标价"then

ifisnull(e.Value2) = false and isnull(记录部件1.GetFieldValue("数量")) =false then

zongjia= e.Value2 * 记录部件1.GetFieldValue("数量")

记录部件1.SetFieldValue("总价",zongjia)

endif

end if

if e.Value1 = "数量" then

ifisnull(e.Value2) = false and isnull(记录部件1.GetFieldValue("中标价")) =false then

zongjia= e.Value2 * 记录部件1.GetFieldValue("中标价")

记录部件1.SetFieldValue("总价",zongjia)

endif

end if

作者: 张兴康 时间: 2020-7-22 10:12
补充说明：
度量快速开发平台office部件使用详解：http://plat.delit.cn/article-16-154.html

作者: leejunki 时间: 2020-7-22 10:21
慢慢意会下。。

作者: 万望 时间: 2020-7-22 11:05

作者: 张军勇 时间: 2020-7-22 19:22
word作为模板，用于显示数据时，就会经常用到这个方法，向书签中填充值。

作者: 王爱东 时间: 2020-7-22 23:45
对头，如打印合同等，均可通过WORD填充标签的方式实现。

作者: 刘亚东 时间: 2020-7-24 22:09
像打印合同这些用这个方法还是不错的，格式正规整齐

欢迎光临度量快速开发平台-专业、快速的软件定制快开平台 (http://bbs.delit.cn/)