度量快速开发平台:向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补充说明:
度量快速开发平台office部件使用详解:http://plat.delit.cn/article-16-154.html 慢慢意会下。。 :funk::funk: word作为模板,用于显示数据时,就会经常用到这个方法,向书签中填充值。 对头,如打印合同等,均可通过WORD填充标签的方式实现。 像打印合同这些用这个方法还是不错的,格式正规整齐 像打印合同这些用这个方法还是不错的,格式正规整齐 像打印合同这些用这个方法还是不错的,格式正规整齐
页:
[1]