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

替换后还是不行，不知什么原因。

 那就没有理由，是不是你的模板本来就是有多一个回车的。

找到原因了，把它改为：wrt.Replace("[列表1]", Left(str1, str1.Length - 5))
wrt.Replace("[列表2]", Left(str2, str2.Length - 5))

乘胜追击.当消除空行后,将最后一行的";"改为句号,能否实现?谢谢

甜总，能实现不？

代码

 

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 i As Integer = 0 To ls.Count - 1
    Dim s() As String = ls(i)
    Dim flag As String = ";" & vbcrlf & ""
    If i = ls.Count-1 Then
        flag = "."
    End If
   
    If s(1) > "" Then
        str1 &= s(0) & "同志任" & s(1) & flag
    End If
    If s(2) > "" Then
        str2 &= "免去" & s(0) & "同志" & s(2) & "职务" & flag
    End If
Next
wrt.Replace("[列表1]", str1)
wrt.Replace("[列表2]", 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 filter = iif(Tables("政府会议_任免").Filter > "", Tables("政府会议_任免").Filter, "1=1")
Dim ls As List(Of String()) = Tables("政府会议_任免").DataTable.GetValues("姓名|拟任职务", filter & " and 拟任职务 is not null", "序列号")
For i As Integer = 0 To ls.Count - 1
    Dim s() As String = ls(i)
    Dim flag As String = ";" & vbcrlf & ""
    If i = ls.Count-1 Then
        flag = "."
    End If
   
    str1 &= s(0) & "同志任" & s(1) & flag
Next
ls = Tables("政府会议_任免").DataTable.GetValues("姓名|拟免职务", filter & " and 拟免职务 is not null", "序列号")
For i As Integer = 0 To ls.Count - 1
    Dim s() As String = ls(i)
    Dim flag As String = ";" & vbcrlf & ""
    If i = ls.Count-1 Then
        flag = "."
    End If
   
    str2 &= "免去" & s(0) & "同志" & s(1) & "职务" & flag
   
Next

wrt.Replace("[列表1]", str1)
wrt.Replace("[列表2]", str2)
'msgbox(str1 & str2 )

'wrt.Replace("[文号]",DataTables("任免表").GetComboListString("文号").Replace("|",","))
wrt.Build() '生成报表
wrt.Show() '显示报表

谢谢，非常完美了，您真有耐心，我怕你凶我，谢谢，以后有什么事，再请教，帮了大忙了