关于ListView的显示问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

……

For Each dr As DataRow In drs

If pdr Is Nothing OrElse pdr("规格") <> dr("规格") OrElse pdr("颜色") <> dr("颜色") OrElse pdr("数量") <> dr("数量")Then

If pr IsNot Nothing Then

pr("箱号") = xhs.trim("-")

pr(pdr("规格")) = pdr("数量")

pr("箱数") = xs

pr("数量") = sl

End If

Dim r As WinForm.ListViewRow = lvw.Rows.Add() '增加一行

r("颜色") = dr("颜色")

xhs = dr("箱号")

xs = 1

sl = dr("数量")

pr = r

Else

xhs &= "-" & dr("箱号")

xs += 1

sl += dr("数量")

End If

pdr = dr

If drs.count > 0

Dim dr = drs(drs.count - 1)

If pr IsNot Nothing Then

pr("箱号") = xhs.trim("-")

pr(pdr("规格")) = dr("数量")

pr("箱数") = xs

pr("数量") = sl

End If

lvw.ResumeRedraw

End If

Dim str As String = "4-5-6-7-8"

Dim arr() As String = str.split("-")

msgbox(arr(0) & "-" & arr(arr.length - 1))

For Each dr As DataRow In drs
        If pdr Is Nothing OrElse pdr("规格") <> dr("规格") OrElse pdr("颜色") <> dr("颜色") OrElse pdr("数量") <> dr("数量")Then
            If pr IsNot Nothing Then
                pr("箱号") = xhs.trim("-")
                pr(pdr("规格")) = pdr("数量")
                pr("箱数") = xs
                pr("数量") = sl

Dim arr() As String = pdr("箱号").split("-")

if arr.length > 2

pdr("箱号") = arr(0) & "-" & arr(arr.length - 1)

end if

            End If
            Dim r As WinForm.ListViewRow = lvw.Rows.Add() '增加一行
            r("颜色") = dr("颜色")
            xhs = dr("箱号")
            xs = 1
            sl = dr("数量")
            pr = r
        Else
            xhs &= "-" & dr("箱号")
            xs += 1
            sl += dr("数量")
        End If
        pdr = dr
    Next

什么东西不计算？要计算什么

msgbox(sum)

msgbox(sum3)

红色代码放到最后的next后面。如果还不行，上传实例看看

Dim cj As WinForm.ComboBox = e.Form.Controls("ComboBox1")

Dim dm As WinForm.ComboBox = e.Form.Controls("ComboBox2")

Dim dt As DataTable = DataTables("箱单数据")

Dim drs = dt.Select("款号 = '" & dm.Text & "'and 合同号 like '%" & cj.Text & "%'", "_sortkey")

'Dim ggs = dt.GetValues("规格", "款号 = '" & dm.Text & "'and 合同号 like '%" & cj.Text & "%'","_sortkey")

Dim ggs() As String ={"XXXS","XXS","XS","S","M","L","XL","XXL","XXXL","F","60","65","70","75","80","85","90","95","100","105","110","115","120","125","130","135","140","145","150","155","160","165","170","175","180","185","190","195","200"}

Dim ggs2 As List(Of String) = dt.GetValues("规格", "款号 = '" & dm.Text & "'and 合同号 like '%" & cj.Text & "%'")

Dim ggs3 As new List(Of String)

For Each gg As String In ggs

If ggs2.Contains(gg) Then ggs3.Add(gg)

Dim dtb As New DataTableBuilder("临时箱单")

dtb.AddDef("合同号",Gettype(String),10)

dtb.AddDef("款号",Gettype(String),10)

dtb.AddDef("箱号",Gettype(String),10)

dtb.AddDef("颜色",Gettype(String),10)

For Each v As String In ggs3

dtb.AddDef(v , Gettype(Double), "", "规格_" & v)

dtb.AddDef("箱数",Gettype(String),10)

dtb.AddDef("数量",Gettype(String),10)

dtb.Build()

……

生成execl的时候判断单元格是否有值，有才赋值

主题：关于ListView的显示问题