主题：[求助]word模板及[列表]代码怎么修改？

 你要对数据进行一下加工才行。

 1、获取字符串 Dim ls As List(Of String) = Tables("政府会议_任免").DataTable.GetValue("内容",Tables("政府会议_任免").Filter,"序列号")) 

 2、对str遍历比较，如果是免去开头的，就取出来

For Each s As String in str

Next

 3、把得到的两部分字符串重新合并。

-------------------------------------------请你把例子发上来。

不要全部发上来，你把表导出，新建一个项目，导入。。。。做一个简单的例子发上来。

 你把表导出，新建一个项目，再导入，再写对应代码，和模板一起发上来。

 你8楼的项目，别人是看不到数据的。

删除不必要的表，删除不必要的数据。保留一点数据即可。

 如下获取字符串，你自己在弄一下即可。

 
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)

请自食其力好吧？最后得到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)

代码，直接放进去

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)

 呃......

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() '显示报表

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() '显示报表

 这样改

wrt.Replace("[列表1]", Left(str1, str1.Length - 2))
wrt.Replace("[列表2]", Left(str2, str2.Length - 2))