listview实现真正的连续模糊查询+多次选择

ivccav

wowo000 发表于 2018-6-15 12:52
其实俺是想既可以模糊查询，又可以下拉查询。

好了。加回去了。

当选择订单号时，按订单号+产品号查询，订购数为该订单数

当订单号选项为空时，只按产品号模糊查询，订购数为0



listview查询同步刷新.zip (82.52 KB, 下载次数: 354)

2018-6-15 14:17 上传

点击文件名下载附件

wowo000

老师，这是附件。

wowo000

一定要加上您回复俺的“listview查询同步刷新 ”这段“天姿国色”思路代码！ComboBox1下拉查询录入表，自动减少。当然还请您得让我TextBox1模糊查询。

wowo000

谢谢您这快的回复！还不是我想要的意思。麻烦您看看我的《送货开单》附件，查询和写入单据基本好了，就是“F”列的公式去不了。还有展开后的添加修改删除问，还是一头雾水。恳请老师帮俺看看。去掉“F列的公式。和斧正我瞎弄的添加、修改、删除乱码’”！谢谢!!!!!

wowo000

当然，烦请老师将按合同号查询，写人单据时逐步减少提示代码加进去。也就是俺说的“天姿国色”代码。即您回俺的“listview查询同步刷新”第一次的代码。

ivccav

wowo000 发表于 2018-6-15 16:56
当然，烦请老师将按合同号查询，写人单据时逐步减少提示代码加进去。也就是俺说的“天姿国色”代码。即您回 ...

你的代码有近400行，功能繁多。我要搞明白，也得看半天。
这么复杂的问题，应该先把业务逻辑想清楚。先传附件给你，你先看看吧，不行再改。
虽然你有代码，但是重新写代码和读懂别人代码花的时间也差不多，最重要的是得搞清楚逻辑。
你自己先修改，问问题就可以只问关键部分即可。你这么庞大的问题，回答起来很花时间的。===================================================

你的品号和品名都不是唯一的，我没法定位该产品来自哪一行，我在数组arr中加入了行号。
每个产品都应该有一个唯一的标识。你右上角的两个选项控件我删掉了，你点“添加”时，
程序会自动查询“货物表”中是否有该品名，如果有，就不添加该产品；在订单号栏非空时，
自动查询是否有该订单，如果无，则自动添加新单，如果已有该单，且该订单中没有当前
产品，则自动把当前产品添加到该订单中。

需要增加删除订单按钮，删除产品和订单不能共用一个按钮。

所有的数据都在arr中，你在查询数据时不用再去工作表中匹配，那样速度会比较慢。

送货开单.zip (102.02 KB, 下载次数: 199)

2018-6-16 08:04 上传

点击文件名下载附件

wowo000

       衷心感谢您，老师！！还要点小要求：能不能在TextBox1里实现您之前的“listview实现真正的连续模糊查询”？因为TextBox1只能按货号查询，我这有几千条产品资料，开单时滚动listview垂直滚动条找太麻烦，如果在TextBox1里用“货号&名称/型号/规格&颜色&单位&单价&订购量”模糊查询就方便多了。即：ComboBox1为空时可模糊查询，ComboBox1有合同号时也可以模糊查询。另，“货物表”里的“F”列的公式可以去掉了吧？
      恳请老师回复，就差这点了。
      在此先谢谢了！
颂：祺安！

ivccav

wowo000 发表于 2018-6-16 09:53
衷心感谢您，老师！！还要点小要求：能不能在TextBox1里实现您之前的“listview实现真正的连续模糊 ...

F列的公式我没有使用，太慢了。你删掉吧。不过那一列我在数组中已经使用，
我填入了行号。你不要在工作表中F列写数据，写了也没有用的。

要想多条件模糊查询，可以把需要的条件串接起来，然后用Instr函数。
我的建议只要品号+品名，最多加个颜色，因为其他条件，比如单位等重复
太多，没有查询的意义。查询的时候要选择重复性少的内容作为条件。
下面代码能实现品号/品名/颜色三个条件模糊查询。你在你的文件中修改这段即可。
副本Xl0000015.zip (157.28 KB, 下载次数: 263)

2018-6-16 10:24 上传

点击文件名下载附件

    If listCnt > 0 Then
        For i = 2 To UBound(arr)
            If col Then con = (Val(arr(i, col)) > 0) Else con = True
            s = arr(i, 1) & "/" & arr(i, 2) & "/" & arr(i, 3) '品号/品名/颜色
            If InStr(s, tb1) > 0 And con Then
                For j = 1 To listCnt
                    If arr(i, 6) = ListView1.ListItems(j).SubItems(6) Then GoTo Line1
                Next
                addItm i, col
            End If
Line1:
        Next
    Else
        For i = 2 To UBound(arr)
            If col Then con = (Val(arr(i, col)) > 0) Else con = True
            s = arr(i, 1) & "/" & arr(i, 2) & "/" & arr(i, 3)
            If InStr(s, tb1) > 0 And con Then
                addItm i, col
            End If
        Next
    End If

wowo000

再次衷心感谢您，老师！！！！！劳烦您了。

wowo000

老师端午节快乐！