Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于ListView的显示问题


  共有5103人关注过本帖树形打印复制链接

主题：关于ListView的显示问题
帅哥哟，离线，有人找我吗？
hongyefor
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：524 积分：3676 威望：0 精华：0 注册：2012/7/27 10:28:00 		关于ListView的显示问题  发帖心情 Post By：2019/4/9 13:57:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/4/9 15:37:00 [只看该作者]

参考代码

 

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,100} '定义列宽
    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 = 20
    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("颜色") Then
            If pr IsNot Nothing Then
                pr("箱号") = xhs.trim(",")
                pr(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 pr IsNot Nothing Then
        pr("箱号") = xhs.trim(",")
        pr(pdr("规格")) = "√"
        pr("箱数") = xs
        pr("数量") = sl
    End If
    lvw.ResumeRedraw
End If
 回到顶部
帅哥哟，离线，有人找我吗？
hongyefor
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：524 积分：3676 威望：0 精华：0 注册：2012/7/27 10:28:00 		  发帖心情 Post By：2019/4/9 16:22:00 [只看该作者]

箱子里的数字不一样也需要分开，还有不要"√"，需要实际的每箱数量，也就是如果有一箱数字不一样也需要分开的,还有如果是箱号1-2-3，那直接变为1-3
[此贴子已经被作者于2019/4/9 16:24:32编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/4/9 18:11:00 [只看该作者]

请看懂代码，理解代码以后，自己修改。示例代码已经写出来给你。自己改动一下。

 
 回到顶部
帅哥哟，离线，有人找我吗？
hongye
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：437 积分：2949 威望：0 精华：0 注册：2011/3/15 12:49:00 		  发帖心情 Post By：2019/4/12 22:52:00 [只看该作者]

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,100} '定义列宽
    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("规格")) = dr("数量")
                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
For Each dr As DataRow In drs
    If pr IsNot Nothing Then
        pr("箱号") = xhs.trim("-")
        pr(pdr("规格")) = dr("数量")
        pr("箱数") = xs
        pr("数量") = sl
    End If
Next
    lvw.ResumeRedraw
End If

 

 


图片点击可在新窗口打开查看此主题相关图片如下：问题.jpg
图片点击可在新窗口打开查看

 

怎么显示的数据错误？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/12 23:21:00 [只看该作者]

……
    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
 回到顶部
帅哥哟，离线，有人找我吗？
hongyefor
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：524 积分：3676 威望：0 精华：0 注册：2012/7/27 10:28:00 		  发帖心情 Post By：2019/4/13 11:24:00 [只看该作者]

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箱的数量规格颜色一致
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/13 11:42:00 [只看该作者]

Dim str As String = "4-5-6-7-8"
Dim arr() As String = str.split("-")
msgbox(arr(0) & "-" & arr(arr.length - 1))
 回到顶部
帅哥哟，离线，有人找我吗？
hongyefor
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：524 积分：3676 威望：0 精华：0 注册：2012/7/27 10:28:00 		  发帖心情 Post By：2019/4/13 12:14:00 [只看该作者]

不知道加哪里图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/13 13:50:00 [只看该作者]

 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
 回到顶部
总数 43 1 2 3 4 5 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 5 次数据查询