谢谢老师，还有个问题要请教，如下图，如何通过遍历表的方式，通过点击按钮，把下图表1的高是2400的产品型号进行数量加总，来源列合并后去重后只显示一行数据。上传的代码请老师给改下，谢谢！
此主题相关图片如下：20200713231608.png
按钮代码：
Dim drs As List(Of DataRow)
drs = DataTables("表1").Select("高 = 2400 And 导入类型 = '线'")
For Each dr As DataRow In drs
Dim i As Integer = Tables("表1").FindRow("序='" & dr("序") & "'")
If i >=0 Then
Dim rz As Row = Tables("表1").Rows(i)
If rz IsNot Nothing AndAlso rz("高")=2400 AndAlso rz("导入类型") = "线" Then
dr = DataTables("表1").AddNew
dr("订单编号")= rz("订单编号")
dr("产品名称")= rz("产品名称")
dr("产品分类")= rz("产品分类")
dr("产品型号")= rz("产品型号")
dr("高")= rz("高")
dr("数量")= 合并后的总数
dr("导入类型")= rz("导入类型")
dr("来源")=合并后去重的值
End If
End If
删除原有的3条数据行
Next
[此贴子已经被作者于2020/7/13 23:20:36编辑过]
加好友 
发短信
Post By：2020/7/13 21:31:00 [显示全部帖子]
