度量快速开发平台：向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

张兴康

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

leejunki

慢慢意会下。。

万望

张军勇

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

王爱东

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

刘亚东

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

刘亚东

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

刘亚东

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