[求助]如何用代码去掉相同的字符串？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim t As Table = Tables("基本信息")

Dim tm As String = ProjectPath & "Attachments\试验.doc" '指定模板文件

Dim fl As String = ProjectPath & "Reports\试验.doc" '指定目标文件

Dim wrt As New WordReport(t,tm,fl) '定义一个WordReportTable: 要打印的表(Table)或表的名称

For i As Integer = t.TopPosition To t.BottomPosition

Dim stra As String = ""

Dim strb As String = ""

Dim stry As String = ""

Dim dr As DataRow

For Each dr In t.Rows(i).DataRow.GetChildRows("违法及处理情况")

For Each cdra As DataRow In dr.GetChildRows("违法依据")

Dim lstra As String = ""

For Each ldra As DataRow In cdra.GetChildRows("法律条文")

lstra &= ldra("书目") & ldra("条") & ldra("条内容") & ldra("款项") & ldra("款项内容") & "和"

stra &= lstra

For Each cdrb As DataRow In dr.GetChildRows("处罚依据")

Dim lstrb As String = ""

For Each ldrb As DataRow In cdrb.GetChildRows("法律条文")

lstrb &= ldrb("书目") & ldrb("条") & ldrb("条内容") & ldrb("款项") & ldrb("款项内容") & "和"

strb &= lstrb

stry &= "依据" & strb.trim("和") & "的规定,拟对你公司作出" & dr("其他处罚") & "罚款人民币" & dr("罚款金额") & "元(" & CUMoney(dr("罚款金额")) & ")的行政处罚."

wrt.ReplaceOne("[全部具体违法依据]", stra.trim("和"))

wrt.ReplaceOne("[全部具体处罚依据及处罚情况]", stry.trim("和"))

wrt.BuildOne(t.Rows(i))

wrt.Show() '显示报表

因为有可能用到相同的法律条文，所以想去掉后面相同的条内容，可能是我表达有问题，这绝对不是AI问题，没那么高端，嘿嘿

[此贴子已经被作者于2017/8/8 21:04:38编辑过]

主题：[求助]如何用代码去掉相同的字符串？