主题：关于ListView的显示问题

此主题相关图片如下：wt11.jpg


此主题相关图片如下：wt12.jpg

 

我有一个窗口，名为窗口1，里面有4个控件 其中有一个ListView的控件

我需要将表里的规格“S,M,L”作为ListView里的列显示，（“S,M,L”非固定的数据，有可能是“F”，也有可能是“XS,S,M,L,XL”等），箱号列也会有不同如果连续的箱号，装的款号一样，颜色一样，规格一样则箱号合并，比如说1号箱和2号箱装的款号一样，颜色一样，规格一样，则显示为1~2，不连续的则分开

请问这个代码怎么写

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:装箱系统.foxdb

箱子里的数字不一样也需要分开，还有不要"√"，需要实际的每箱数量，也就是如果有一箱数字不一样也需要分开的,还有如果是箱号1-2-3，那直接变为1-3

Dim cj As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim dm As WinForm.ComboBox = e.Form.Controls("ComboBox2")
If cj.text <> Nothing AndAlso dm.text <> Nothing Then
    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 lvw As WinForm.ListView = e.Form.Controls("ListView1")
    lvw.StopRedraw() '暂停绘制
    lvw.Columns.Clear() '清除原来的列
    lvw.Rows.Clear() '清除原来的行
    lvw.View = ViewMode.Details '显示模式为详细信息
    lvw.GridLines = True '显示网格线
    Dim cls() As String = {"颜色","箱号"} '定义列名
    Dim wds() As String = {120,70} '定义列宽
    For i As Integer = 0 To  cls.Length - 1  '增加列
        Dim c As WinForm.ListViewColumn = lvw.Columns.Add()
        c.Text = cls(i) '指定列标题
        c.Name = cls(i) '指定列名
        c.Width = wds(i) '指定列宽
    Next
    For Each gg As String In ggs
        Dim c As WinForm.ListViewColumn = lvw.Columns.Add()
        c.Text = gg
        c.Name = gg
        c.Width = 30
    Next
    cls = new String() {"箱数","数量"} '定义列名
    wds = new String()  {40,40} '定义列宽
    For i As Integer = 0 To  cls.Length - 1  '增加列
        Dim c As WinForm.ListViewColumn = lvw.Columns.Add()
        c.Text = cls(i) '指定列标题
        c.Name = cls(i) '指定列名
        c.Width = wds(i) '指定列宽
    Next
   
    Dim pdr As DataRow = Nothing
    Dim xs As Double = 0
    Dim xhs As String = ""
    Dim sl As Double = 0
    Dim pr As object = Nothing
    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
    Next
    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
    End If
    lvw.ResumeRedraw
End If

 

此主题相关图片如下：wt12.jpg

 

请问如何去掉图片中连续箱号中间的数字，让它只显示头箱和尾箱。也就是如果是4-5-6-7-8装箱数颜色规格一样的同类产品，只显示 4-8 ，表示第4箱到第8箱的数量规格颜色一致

不知道加哪里

没有反应，还是像7楼图片一样

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 = pr("箱号").split("-") if arr.length > 2 pr("箱号") = 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

这样测试没问题了，请问如何按照ListView里的样式生成Excel报表呢？前提是还要加上一个““款号”+箱单”的表头

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

这个代码有错吗？

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 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 ggs
    dtb.AddDef("规格_" & v , Gettype(Double))
Next
dtb.AddDef("箱数",Gettype(String),10)
dtb.AddDef("数量",Gettype(String),10)
dtb.Build()

Dim pdr As DataRow = Nothing
Dim xs As Double = 0
Dim xhs As String = ""
Dim sl As Double = 0
Dim pr As object = Nothing
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("合同号") = cj.Text
            pr("款号") = dm.Text
            pr("箱号") = xhs.trim("-")
            pr(pdr("规格")) = pdr("数量")
            pr("箱数") = xs
            pr("数量") = sl
            Dim arr() As String = pr("箱号").split("-")
            If arr.length > 2
                pr("箱号") = arr(0) & "-" & arr(arr.length - 1)
            End If
        End If
        Dim r As  DataRow = DataTables("临时箱单").AddNew()
        r("颜色") = dr("颜色")
        xhs = dr("箱号")
        xs = 1
        sl = dr("数量")
        pr = r
    Else
       
        xhs &= "-" & dr("箱号")
        xs += 1
        sl += dr("数量")
    End If
    pdr = dr
Next
If drs.count > 0
    Dim dr = drs(drs.count - 1)
    If pr IsNot Nothing Then
        pr("合同号") = cj.Text
        pr("款号") = dm.Text
        pr("箱号") = xhs.trim("-")
        pr(pdr("规格")) = dr("数量")
        pr("箱数") = xs
        pr("数量") = sl
    End If
End If

MainTable = Tables("临时箱单")

Dim dt As Table = Tables("临时箱单")
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Style As XLS.Style = Book.NewStyle() '定义新样式
Style.BorderTop = XLS.LineStyleEnum.Thin
Style.BorderBottom = XLS.LineStyleEnum.Thin
Style.BorderLeft = XLS.LineStyleEnum.Thin
Style.BorderRight = XLS.LineStyleEnum.Thin
Style.BorderColorTop = Color.Black
Style.BorderColorBottom = Color.Black
Style.BorderColorLeft = Color.Black
Style.BorderColorRight = Color.Black
Sheet.Rows(0).Height = 30 '设置第1行的行高
Style.AlignHorz = XLS.AlignHorzEnum.Center
Style.AlignVert = XLS.AlignVertEnum.Center
dt.CreateSheetHeader(Sheet,1,0,False)'生成表头
Sheet(0,0).Value = "产品销售统计"
Sheet(0,0).Style.Font = New Font("雅黑", 16, FontStyle.Bold)
For r As Integer = 0 To dt.Rows.Count - 1 '填入数据
    For c As Integer = 0 To dt.Cols.Count -1
Sheet.Cols(0).Width = 120
Sheet.Cols(1).Width = 120
Sheet.Cols(2).Width = 70
Sheet.Cols(3).Width = 120
For a As Integer = 4 To dt.Cols.Count -3
Sheet.Cols(a).Width = 30 '设置第1列的宽度
Next
For a As Integer = dt.Cols.Count -2 To dt.Cols.Count -1
Sheet.Cols(a).Width = 50 '设置第1列的宽度
Next
Sheet.MergeCell(0,0,1,c+1)
        Sheet(r +3 , c).Value = dt.rows(r)(c)
Sheet(r +3, c).Style = Style
Sheet(0,c).Style = Style
Sheet(1,c).Style = Style
Sheet(2,c).Style = Style
    Next
Next
Book.Save("c:\reports\test.xls")
Dim Proc As New Process
Proc.File = "c:\reports\test.xls"
Proc.Start()

红色这行怎么改

Dim de As Table = Tables("临时箱单")
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Style As XLS.Style = Book.NewStyle() '定义新样式
Style.BorderTop = XLS.LineStyleEnum.Thin
Style.BorderBottom = XLS.LineStyleEnum.Thin
Style.BorderLeft = XLS.LineStyleEnum.Thin
Style.BorderRight = XLS.LineStyleEnum.Thin
Style.BorderColorTop = Color.Black
Style.BorderColorBottom = Color.Black
Style.BorderColorLeft = Color.Black
Style.BorderColorRight = Color.Black
Sheet.Rows(0).Height = 30 '设置第1行的行高
Style.AlignHorz = XLS.AlignHorzEnum.Center
Style.AlignVert = XLS.AlignVertEnum.Center
de.CreateSheetHeader(Sheet,1,0,False)'生成表头
Sheet(0,0).Value = "产品销售统计"
Dim styel1 As XLS.Style = Book.NewStyle() '定义新样式
styel1.font = New Font("雅黑", 16, FontStyle.Bold)
Sheet(0,0).Style = styel1
For r As Integer = 0 To de.Rows.Count - 1 '填入数据
    For c As Integer = 0 To de.Cols.Count -1
        Sheet.Cols(0).Width = 120
        Sheet.Cols(1).Width = 120
        Sheet.Cols(2).Width = 70
        Sheet.Cols(3).Width = 120
        For a As Integer = 4 To de.Cols.Count -3
            Sheet.Cols(a).Width = 30 '设置第1列的宽度
        Next
        For a As Integer = de.Cols.Count -2 To de.Cols.Count -1
            Sheet.Cols(a).Width = 50 '设置第1列的宽度
        Next
        Sheet.MergeCell(0,0,1,c+1)
        Sheet(r +3 , c).Value = de.rows(r)(c)
        Sheet(r +3, c).Style = Style
        Sheet(0,c).Style = Style
        Sheet(1,c).Style = Style
        Sheet(2,c).Style = Style
    Next
Next
Book.Save("c:\reports\test.xls")
Dim Proc As New Process
Proc.File = "c:\reports\test.xls"
Proc.Start()

没反应！