张兴康 发表于 2020-7-22 10:09:05

度量快速开发平台：向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.00if e.Value1 = "中标价"then         ifisnull(e.Value2) = false and isnull(记录部件1.GetFieldValue("数量")) =false then                   zongjia= e.Value2 * 记录部件1.GetFieldValue("数量")                   记录部件1.SetFieldValue("总价",zongjia)         endifend if if e.Value1 = "数量" then         ifisnull(e.Value2) = false and isnull(记录部件1.GetFieldValue("中标价")) =false then                   zongjia= e.Value2 * 记录部件1.GetFieldValue("中标价")                   记录部件1.SetFieldValue("总价",zongjia)         endifend if

张兴康 发表于 2020-7-22 10:12:04

补充说明：
度量快速开发平台office部件使用详解：http://plat.delit.cn/article-16-154.html

leejunki 发表于 2020-7-22 10:21:54

慢慢意会下。。

万望 发表于 2020-7-22 11:05:20

:funk::funk:

张军勇 发表于 2020-7-22 19:22:30

word作为模板，用于显示数据时，就会经常用到这个方法，向书签中填充值。

王爱东 发表于 2020-7-22 23:45:54

对头，如打印合同等，均可通过WORD填充标签的方式实现。

刘亚东 发表于 2020-7-24 22:09:28

像打印合同这些用这个方法还是不错的，格式正规整齐

刘亚东 发表于 2020-7-24 22:09:35

像打印合同这些用这个方法还是不错的，格式正规整齐

刘亚东 发表于 2020-7-24 22:09:36

像打印合同这些用这个方法还是不错的，格式正规整齐
页: [1]
查看完整版本: 度量快速开发平台：向word文档中书签填充值