+号全部改为&符号
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "产品类别","产品系列","产品代码","附加功能","牌号","硬度","退火"
dr("产品信息") = dr("产品类别") & " " & dr("产品系列") & " " & dr("产品代码") & " " & dr("附加功能") & " " & dr("牌号") & " " & dr("硬度") & " " & dr("退火")
End Select
Dim dr1 As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "厚度","宽度","裁长","top膜厚度","top膜颜色与结构","bot膜厚度","bot膜颜色与结构"
dr1("规格") = dr1("厚度") & " " & dr1("宽度") & " " & dr1("裁长") & " " & dr1("top膜厚度")
End Select