Dim drs As List(Of DataRow)
drs = DataTables("表1").Select("高 = 2400 And 导入类型 = '线'")
If drs.Count = 0 Then Return ""
Dim dr1 As DataRow = drs(0)
Dim dr As DataRow = DataTables("表1").AddNew
dr("订单编号")= dr1("订单编号")
dr("产品名称")= dr1("产品名称")
dr("产品分类")= dr1("产品分类")
dr("产品型号")= dr1("产品型号")
dr("高")= dr1("高")
dr("导入类型")= dr1("导入类型")
Dim lst As new List(of String)
Dim sum As Integer
For i As Integer = drs.Count -1 To 0 Step -1
dr1 = drs(i)
sum += dr1("数量")
For Each s As String In dr1("来源").split(",")
If lst.Contains(s) = False Then lst.Add(s)
Next
dr1.Delete
Next
dr("数量")= sum
lst.Sort
dr("来源")=String.Join(",",lst.ToArray)
加好友 
发短信
Post By：2020/7/13 21:51:00 [显示全部帖子]
