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