窗体Listview控件实现可编辑功能的完美解决方法

子容

ivccav 老师，listview编辑和排序功能好像不能同时使用，排序后，再编辑，行号不是以前的行号了

ivccav

子容 发表于 2023-3-3 15:42
ivccav 老师，listview编辑和排序功能好像不能同时使用，排序后，再编辑，行号不是以前的行号了

如果要在listview排序，最方便的是使用数据库保存数据，因为可以根据唯一的id列更新数据，非常可靠。如果用Excel保存数据，行号因排序而变动，只能用工作表函数find在表格内查找对应行，也需要唯一标识该行的信息。

子容

好的，谢谢老师！

hbshow

感谢分享，学习中

tonywalker

ivccav 发表于 2023-2-5 14:40
是我孤陋寡闻了。office2016 64位开始的确支持Listview了。
https://club.excelhome.net/thread-1 ...

楼主，很遗憾，2019的listview并不能设置框线，另针对楼主使用的模糊检索，其实并不能真正完全实现多条件的模糊检索，略有愚见，代码如下

tonywalker

tonywalker 发表于 2023-4-23 20:19
楼主，很遗憾，2019的listview并不能设置框线，另针对楼主使用的模糊检索，其实并不能真正完全实现多条件 ...

With ListView1
            .ListItems.Clear
        text_box = "/" & UserForm1.TextBox1.Text & "/"
        For i = 1 To Len(text_box)'记录节点"/"并记录到数组内
            If Mid(text_box, i, 1) = "/" Then
                num_jd = num_jd + 1
                ReDim Preserve arr_jd(1 To num_jd)
                arr_jd(num_jd) = i
            End If
        Next
        For i = 1 To UBound(arr_jd) - 1'遍历节点"/"，以此提取条件字符
            ReDim Preserve arr_text(1 To UBound(arr_jd) - 1)
            arr_text(i) = Mid(text_box, arr_jd(i) + 1, arr_jd(i + 1) - arr_jd(i) - 1)
        Next
        For i = 1 To UBound(arr_zb)
            strSearchText = arr_zb(i, 2) & "/" & arr_zb(i, 3) & "/" & arr_zb(i, 4) & arr_zb(i, 5) & arr_zb(i, 7) & arr_zb(i, 9) '设置检索多条件查找
            For X = 1 To UBound(arr_text)'遍历条件
                If InStr(1, strSearchText, arr_text(X), vbTextCompare) Then'记录多条件满足次数
                    num_bj = num_bj + 1
                End If
            Next
            If num_bj = UBound(arr_text) Then'若满足次数与多条件数一致，表明模糊匹配全部多条件
                。。。。。
             以下就是和楼主代码一致了（我修改成自己适用代码了，所以不显示了哈）

tonywalker

楼主，以下代码我实际测试过，是可以用的，但是实现途径感觉特别的粗糙，烦请指正；代码添加textbox1.tex前后“/”，然后遍历textbox1.text的字符数，数组记录"/"在检索字符中的位置；再以该数组遍历提取条件字符，存入新数组；循环遍历新数组上限，判断instr提取条件是否在strsearchtext，记录符合次数；再判断符合次数与新数组上限，若一致则开始赋值
简单的说就是将多条件拆分成多个单一条件，所有单一条件满足模糊查找即通过，开始赋值

hbshow

感谢分享，正学习中

ipkaion

先謝謝你的教學,學習中.好有用,!!!!!
請問colume能不能 自適應寬度

ipkaion

先謝謝你的教學,學習中.好有用,!!!!!
請問colume能不能 自適應寬度