ListView搜索字符串，修改数据

情冇独钟

希望达到的效果：
输入品类和数量点击“录入”，修改列表中的数据，累加！
如若列表不存在此品类，新增一条！

1. Private Sub CommandButton1_Click()
   
2. Dim fs As ListItem
   
3. Set fs = ListView1.FindItem(TextBox1.Value, , , 0) '<font color="#ff0000">如何获取这个fs查找值的位置，有类似fs.row的用法吗，方便后面修改数据时调用。</font>
   
4. With fs
   
5.   .EnsureVisible
   
6.   .Selected = True
   
7. End With
   
8. ListView1.SetFocus
   
9. 'ListView1.ListItems(2).SubItems(1) = 666 '<font color="#ff0000">修改数据,第2行第2列，这个行列值能否用变量表示。</font>
   
10. End Sub

复制代码

请高手指导下，多谢了 11.rar (19.86 KB, 下载次数: 3)

2018-9-18 10:58 上传

点击文件名下载附件

一指禅62

1、按楼主的思路可以实现。
2、我揣摩，新增数据应该先写入工作表，再在窗体显示出来。

一指禅62

1. Private Sub CommandButton1_Click()
   
2.     Dim fs As ListItem
   
3.     Set fs = ListView1.FindItem(TextBox1.Value, , , 0)
   
4.     If fs Is Nothing Then
   
5.         Set fs = ListView1.ListItems.Add
   
6.         fs.Text = TextBox1.Text
   
7.         fs.SubItems(1) = Val(TextBox1.Text)
   
8.     Else
   
9.         fs.SubItems(1) = Val(fs.SubItems(1)) + Val(TextBox2.Text)
   
10.     End If
    
11. End Sub

复制代码

一指禅62

Book1.zip (10.61 KB, 下载次数: 19)

2018-9-18 11:59 上传

点击文件名下载附件

情冇独钟

一指禅62 发表于 2018-9-18 11:31

感谢指点，要的就是这效果！
这个求助文件是临时做的，忽略了一点，当品类不在A列时搜索不到
ListView1.FindItem，如何搜索其它列呢，或是全列搜索！
另外这个返回不了所在行号和列号吗，我想搜索到后将整行着色。
多谢了！