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


  共有4797人关注过本帖树形打印复制链接

主题：[求助]word模板及[列表]代码怎么修改？
帅哥哟，离线，有人找我吗？
有点甜
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/14 9:58:00 [只看该作者]

以下是引用hrw68529在2014-8-14 9:44:00的发言：
上述代码放在哪里，能不能把修改后的软件再发给我看看

 

请自食其力好吧？最后得到str1和str2，然后你再根据你的代码处理一下替换进去，公 务 员这么懒么

 

Dim str1 As String = ""
Dim str2 As String = ""
Dim ls As List(Of String()) = Tables("政府会议_任免").DataTable.GetValues("内容|姓名", Tables("政府会议_任免").Filter, "序列号")
For Each s As String() In ls
    If s(0).IndexOf("任") > -1 Then
        str1 &= s(0).Split(",")(0) & vbcrlf & ""
    End If
    If s(0).IndexOf("免去") > -1 Then
        str2 &= s(0).Substring(s(0).IndexOf("免去")).Replace("其", s(1)) & vbcrlf & ""
    End If
Next

msgbox(str1 & str2)
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1116 积分：8608 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2014/8/14 10:29:00 [只看该作者]

不好意思，上述代码放在“提请议案”里吗，我不是公员，是临时工作人员。谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/14 10:43:00 [只看该作者]

代码，直接放进去

 

Dim str1 As String = ""
Dim str2 As String = ""
Dim ls As List(Of String()) = Tables("政府会议_任免").DataTable.GetValues("内容|姓名", Tables("政府会议_任免").Filter, "序列号")
For Each s As String() In ls
    If s(0).IndexOf("任") > -1 Then
        str1 &= s(0).Split(",")(0) & vbcrlf & ""
    End If
    If s(0).IndexOf("免去") > -1 Then
        str2 &= s(0).Substring(s(0).IndexOf("免去")).Replace("其", s(1)) & vbcrlf & ""
    End If
Next

 

wrt.Replace("[列表]", str1 & "提请免去：" & str2)

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1116 积分：8608 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2014/8/14 10:56:00 [只看该作者]

出现错误，看图片：
图片点击可在新窗口打开查看此主题相关图片如下：截图01.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/14 11:18:00 [只看该作者]

 呃......

 

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, "序列号")
For Each s As String() In ls
    If s(0).IndexOf("任") > -1 Then
        str1 &= s(0).Split(",")(0) & vbcrlf & ""
    End If
    If s(0).IndexOf("免去") > -1 Then
        str2 &= s(0).Substring(s(0).IndexOf("免去")).Replace("其", s(1)) & vbcrlf & ""
    End If
Next

wrt.Replace("[列表]", str1 & "提请免去:" & str2)

'wrt.Replace("[文号]",DataTables("任免表").GetComboListString("文号").Replace("|",","))
wrt.Build() '生成报表
wrt.Show() '显示报表
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1116 积分：8608 威望：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() '显示报表

麻烦你了，谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1116 积分：8608 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2014/8/14 11:53:00 [只看该作者]

或者在模板里写上：“提请免去：”，在它的下边写上[列表2]

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/14 12:04:00 [只看该作者]

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, "序列号")
For Each s As String() In ls
    If s(1) > "" Then
        str1 &= s(0) & "同志任" & s(1) & ";" & vbcrlf & ""
    End If
    If s(2) > "" Then
        str2 &= "免去" & s(0) & "同志" & s(2) & "职务;" & vbcrlf & ""
    End If
Next
wrt.Replace("[列表1]", str1)
wrt.Replace("[列表2]", str2)
msgbox(str1 & str2)

'wrt.Replace("[文号]",DataTables("任免表").GetComboListString("文号").Replace("|",","))
wrt.Build() '生成报表
wrt.Show() '显示报表
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1116 积分：8608 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2014/8/14 12:51:00 [只看该作者]

非常好，谢谢，就是列表最后一行，还出现回车符，与下面的内容空一行，无法解决，有没有什么办法？

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/14 14:11:00 [只看该作者]

 这样改

 

wrt.Replace("[列表1]", Left(str1, str1.Length - 2))
wrt.Replace("[列表2]", Left(str2, str2.Length - 2))
 回到顶部
总数 40 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询