还可以这样写：Dim fl As String = "高 = 2400 And 导入类型 = '线'"
Dim i As Integer = DataTables("表1").Compute("Sum(数量)",fl)
Dim s As String = DataTables("表1").GetComboListString("来源",fl).replace("|",",")
Dim f As New Filler
f.SourceTable = DataTables("表1")
f.DataTable = DataTables("表1")
f.Filter = "序=1"
f.Fill()
Dim dr As DataRow = DataTables("表1").DataRows(DataTables("表1").DataRows.Count-1)
dr("数量") = i
dr("来源") = String.join(",",s.split(",").Distinct.ToArray)
加好友 
发短信
Post By：2020/7/14 14:37:00 [显示全部帖子]
