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

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
不知何故？烦扰了！请谅。

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
不知何故？烦扰了！请谅。

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
不知何故？烦扰了！请谅。

ivccav

wowo000 发表于 2018-6-21 12:00
其实，我昨天已加在“Sub RefreshData() '刷新数组”下测试过了，所有的合同号都会重复显示的，故请您指点 ...

    With QueryForm.ComboBox1        .Clear
        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

对不起，网络问题，重发了很多。谢谢您！！！！！

wowo000

尊敬的老师：可以帮我看看表（附件）不？我想让“制作工资条”和“还原工资表”两段代码可通用，也就是想实现点“工资条”弹出窗体，将所有月份表装入ComboBox1里，下拉选择“月份”然后“确定”即可生成工资条，点“还原表”还原工资表。只对所选择的月份有效执行代码。当然如果不下拉查询，那就让只在工作表执行（每个表都有两个按键，可本表的生成工资条，也可还原）。

wowo000

附件 通用生成工资条.rar (60.14 KB, 下载次数: 134)

2018-6-30 16:18 上传

点击文件名下载附件

wowo000

将所有月份表的表名（如：工资表（01），工资表（02）........）装入ComboBox1里

pnzt

学习学习学习学习

guomj1985

虽然很感谢wowo的提问让我们学习到很多东西，但是感觉有点没完没了……遇到问题还是应该多百度或者自己探索