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

wowo000

星期天打扰你休息吧，我们明天才放假。昨天下午测试发现有两个问题，恳请帮忙。
测试发现有：1，合同号一旦含有小写字母就查询不了该订单的信息；2，office2010版运行时会出现“txt行号.Text = ""”和“txt行号.Text = Item.SubItems(6) '行号”错误提示“运行时错误424，要求对象”，烦请帮修改。

wowo000

开单20180617

ivccav

wowo000 发表于 2018-6-17 07:53
星期天打扰你休息吧，我们明天才放假。昨天下午测试发现有两个问题，恳请帮忙。
测试发现有：1，合同号一 ...

第一个问题：

RefreshListView中，已把cb1 = Ucase(ComboBox1)，转换了大小写。用Ucase把所有字母都转为大写，就不用区分大小写。有些区域我忘记转换了，你自己补全。如果要区分大小写，改回改为cb1 = ComboBox1

第二个问题：

我在窗体上加了一个不可编辑、不可见的TEXTBOX控件，名称是 "txt行号"，你没有使用我的附件，就要在你的文件中把该控件自己加上去。

jjmysjg

留下记号，谢谢

wowo000

谢谢！俺愚钝，能否告诉我咋让你的附近里的 "txt行号"显示出来？

wowo000

衷心谢谢您不辞辛劳的帮助！！！！！！

wowo000

可再烦扰您不？老师！使用过程中有点不如意：当俺同时新录货物信息和订单号、订量，点击“添加”后保存了，但ComboBox1_Change() '选择订单号下拉框不能及时更新。下拉没新货物新订单的信息，即：ComboBox1_Change() '选择订单号下拉框没有新的合同号。恳请指点迷津！

wowo000

我在Private Sub ComboBox1_Change() '选择订单号下拉框
    ListView1.ListItems.Clear: listCnt = 0
RefreshData 这加上，也不能及时更新下拉选项合同号
    RefreshListView
End Sub
咋能添加新的货物、订单信息时，合同号及时刷新呢？

ivccav

wowo000 发表于 2018-6-20 16:06
我在Private Sub ComboBox1_Change() '选择订单号下拉框
    ListView1.ListItems.Clear: listCnt = 0
Re ...

要学会举一反三。你问的问题，我的代码中都有现成的答案，你直接复制就行了。不能显示合同，是因为combobox没有刷新。

你自己加这些进去就行了。问题是问不完的，需要自己去学习。
    RefreshData
    c = UBound(arr, 2)
    With ComboBox1
        .AddItem ""
        .Style = 2
        .ListIndex = 0
        If c >= 7 Then
            For i = 7 To c
                If Len(arr(1, i)) Then .AddItem arr(1, i)
            Next
        End If
    End With

wowo000

其实，昨天我已加在Sub RefreshData() '刷新数组下测试了，就是每个合同号都会重复显示，故请您指点。
    With QueryForm.ComboBox1
        If c >= 7 Then
            For i = 7 To c
                If Len(arr(1, i)) Then .AddItem arr(1, i)
            Next
        End If
    End With
不知何故？