excel vba listview查询代码该怎么写?

winsonpwr

最近想做一个机台的记录表,现在做好了数据录入保存的步骤,
现在的listview已经把数据表示出来了,但这个listview查询代码我整不明白啊,求大虾指教
1.listview通过文本框进行筛选的代码该怎么写?
2.listview筛选出来的结果数据,双击赋值到左边的文本框上能进行修改和新增的代码该怎么写?







新开机记录表-测试01.rar (39.88 KB, 下载次数: 10)

2024-7-19 22:55 上传

点击文件名下载附件

3190496160

Private Sub CommandButton2_Click() '''查询
Dim arr()
Dim rng As Range
ReDim arr(1 To ListView1.ListItems.Count, 1 To ListView1.ColumnHeaders.Count)
If ListView1.ListItems.Count < 1 Then MsgBox "对不起!没有你想要导出的数据": Exit Sub
Set rng = ActiveSheet.Rows(1)
zd = textbox102.Text
lj = CreateObject("wscript.shell").specialfolders.Item("desktop") & ("\")
For i = 1 To ListView1.ListItems.Count
    If ListView1.ListItems(i).SubItems(3) = zd Then
        m = m + 1
        arr(m, 1) = ListView1.ListItems(i)
        For j = 1 To ListView1.ColumnHeaders.Count - 1
            arr(m, j + 1) = ListView1.ListItems(i).SubItems(j) '
        Next j
    End If
Next i
If m = "" Then Exit Sub
With ListView1
    .ListItems.Clear '清除内容数据
    For i = 1 To m '在新数组的行内循环
        If Trim(arr(i, 1)) <> "" Then
             Set Itm = .ListItems.Add
             Itm.Text = arr(i, 1)
             For j = 2 To UBound(arr, 2)
                 Itm.SubItems(j - 1) = arr(i, j)
             Next j
         End If
     Next i
End With
MsgBox "查询到" & m & "行数据！", 0, "提醒"
End Sub

3190496160

只写了查询的代码，供参考
新开机记录表-测试01.rar (42.51 KB, 下载次数: 19)

2024-7-20 09:17 上传

点击文件名下载附件

winsonpwr

3190496160 发表于 2024-7-20 09:17
只写了查询的代码，供参考

谢谢.

skiss

winsonpwr 发表于 2024-7-22 08:15
谢谢.

可以在别人回帖的右下角，点评分送两朵花给写代码的老师。

winsonpwr

skiss 发表于 2024-7-22 11:55
可以又下角送两朵花给写代码的老师。

怎么送???右下角没看见什么花的啊..