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

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
热搜: 部件 流程 SQL
查看: 3307|回复: 8
打印 上一主题 下一主题

[分享] 度量快速开发平台:向word文档中书签填充值

  [复制链接]

542

主题

5916

帖子

1万

积分

作者

Rank: 7Rank: 7Rank: 7

积分
13589
跳转到指定楼层
楼主
发表于 2020-7-22 10:09:05 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
度量快速开发平台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

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

542

主题

5916

帖子

1万

积分

作者

Rank: 7Rank: 7Rank: 7

积分
13589
沙发
 楼主| 发表于 2020-7-22 10:12:04 | 只看该作者
补充说明:
度量快速开发平台office部件使用详解:http://plat.delit.cn/article-16-154.html
回复 支持 反对

使用道具 举报

635

主题

7011

帖子

2万

积分

论坛元老

Rank: 8Rank: 8

积分
20494
板凳
发表于 2020-7-22 10:21:54 | 只看该作者
慢慢意会下。。
回复 支持 反对

使用道具 举报

348

主题

3572

帖子

9333

积分

论坛元老

Rank: 8Rank: 8

积分
9333
地板
发表于 2020-7-22 11:05:20 | 只看该作者
若現在就覺得失望無力,未來那麽遠妳該怎麽扛...
————————————————————————致自己
回复

使用道具 举报

78

主题

634

帖子

1598

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
1598
5#
发表于 2020-7-22 19:22:30 | 只看该作者
word作为模板,用于显示数据时,就会经常用到这个方法,向书签中填充值。
回复 支持 反对

使用道具 举报

198

主题

1313

帖子

3784

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
3784
6#
发表于 2020-7-22 23:45:54 | 只看该作者
对头,如打印合同等,均可通过WORD填充标签的方式实现。
回复 支持 反对

使用道具 举报

67

主题

685

帖子

1815

积分

作者

Rank: 7Rank: 7Rank: 7

积分
1815
7#
发表于 2020-7-24 22:09:28 来自手机 | 只看该作者
像打印合同这些用这个方法还是不错的,格式正规整齐
回复 支持 反对

使用道具 举报

67

主题

685

帖子

1815

积分

作者

Rank: 7Rank: 7Rank: 7

积分
1815
8#
发表于 2020-7-24 22:09:35 来自手机 | 只看该作者
像打印合同这些用这个方法还是不错的,格式正规整齐
回复 支持 反对

使用道具 举报

67

主题

685

帖子

1815

积分

作者

Rank: 7Rank: 7Rank: 7

积分
1815
9#
发表于 2020-7-24 22:09:36 来自手机 | 只看该作者
像打印合同这些用这个方法还是不错的,格式正规整齐
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|重庆度量科技  本站关键词:快速开发平台

GMT+8, 2024-11-27 07:54 , Processed in 0.223251 second(s), 25 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表