[求助]word模板及[列表]代码怎么修改？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]word模板及[列表]代码怎么修改？

共有4882人关注过本帖树形打印复制链接主题：[求助]word模板及[列表]代码怎么修改？

hrw68529

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1142 积分：8840 威望：0 精华：0 注册：2012/7/10 9:09:00

Post By：2014/8/14 8:17:00 [显示全部帖子]

按以下模板做行不：关键是如果一个人既有任命，又有免去，怎么操作？

市人大常委会：

根据《中华人民共和国地方各级人民代表大会和地方各级人民政府组织法》第四十四条第十款和《大阳市人民代表大会常务委员会任免地方国家机关工作人员办法》第八条第三款的规定，提请任命：

周林同志任信阳市体育局局长;

胡亚同志任人民政府秘书长;

叶青同志任水利局局长;

李东同志任城乡规划管理局局长;

霍宏同志任食品药品监督管理局局长;

谢之同志任国有资产监督管理委员会主任;

张英同志任城市管理综合执法局局长;

王玲同志任商务局局长;

提请免去：

免去胡亚同志城市管理综合执法局局长职务;

免去叶青同志体育局局长职务;

免去李民同志人民政府秘书长职务;

免去熊涛同志国有资产监督管理委员会主任职务;

免去翁先同志水利局局长职务;

免去张友同志商务局局长职务;

免去刘大勇同志城乡规划管理局局长职务;

请审议。

hrw68529

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1142 积分：8840 威望：0 精华：0 注册：2012/7/10 9:09:00

Post By：2014/8/14 8:18:00 [显示全部帖子]

如：叶青，既有任命，又有免去，怎么做？

hrw68529

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1142 积分：8840 威望：0 精华：0 注册：2012/7/10 9:09:00

Post By：2014/8/14 8:28:00 [显示全部帖子]

在“提请方案”上

hrw68529

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1142 积分：8840 威望：0 精华：0 注册：2012/7/10 9:09:00

Post By：2014/8/14 9:44:00 [显示全部帖子]

上述代码放在哪里，能不能把修改后的软件再发给我看看

hrw68529

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1142 积分：8840 威望：0 精华：0 注册：2012/7/10 9:09:00

Post By：2014/8/14 10:29:00 [显示全部帖子]

不好意思，上述代码放在“提请议案”里吗，我不是公员，是临时工作人员。谢谢

hrw68529

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1142 积分：8840 威望：0 精华：0 注册：2012/7/10 9:09:00

Post By：2014/8/14 10:56:00 [显示全部帖子]

出现错误，看图片：

此主题相关图片如下：截图01.png

hrw68529

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1142 积分：8840 威望：0 精华：0 注册：2012/7/10 9:09:00

Post By：2014/8/14 11:51:00 [显示全部帖子]

有点甜，你好，我感到这样有点麻烦，因为“内容”列为“拟任职务”和“拟免职务”的组合，能不能按照“姓名”和“拟任职务”生成[列表1]，“姓名”和“拟免职务”生成[列表2]，代码写成如下：

Dim tm As String = ProjectPath & "Attachments\提请议案.doc"
Dim fl As String = ProjectPath & "Reports\提请议案.doc"
Dim wrt As New WordReport(Tables("政府会议_任免"),tm,fl) '定义一个WordReport
wrt.Replace("[计数]",Tables("政府会议_任免").Compute("Count(姓名)")) '用代码计算出总的销售数量并替换模板中的合计

Dim str1 As String = ""
Dim str2 As String = ""
Dim ls As List(Of String()) = Tables("政府会议_任免").DataTable.GetValues("拟任职务|拟免职务|姓名", Tables("政府会议_任免").Filter, "序列号")
wrt.Replace("[列表1]", & "提请免去:" "[列表2]") 这段代码怎么写？

wrt.Build() '生成报表
wrt.Show() '显示报表

麻烦你了，谢谢