如何获得listview勾选项对应工作表数据行

laterite

在listview窗体中勾选一行或多行，使用ListView1.SelectedItem.Index可以得到listview中行号，加上表标题加1可以对应得到选中行在工作表的数据行号（以本贴为例），但是使用了查找指定人员进行筛选后，在listview勾选的位置发生了变动，无法在通过ListView1.SelectedItem.Index获取勾选后对应工作表中实际的数据行号。自己找了半天资料，最接近的是赵刚老师之前的一篇回复（https://club.excelhome.net/threa ... tml?_dsign=25664472），是用find查找工作表中对应的值，但是我的资料中除了序号以外，其他项可能会出现相同值，不方便用find方式，所以到现在完全没有头绪，求帮助


查找全部人员时通过ListView1.SelectedItem.Index可正确获取对应工作表行号：


查找指定人员筛选后通过ListView1.SelectedItem.Index不能正确获取对应工作表行号：

shiruiqiang

把后面6列通过特殊符号连接，然后作为字典去查找。如果还有2个以上的值，那非经手人都不嫩判断了

tanglf188

工作表行不就是控件里序号+1，直接获取序号加1就行了

3190496160

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    Dim xh As Long
    xh = ListView1.ListItems(ListView1.SelectedItem.Index).SubItems(1)
    MsgBox "当前勾选第" & ListView1.SelectedItem.Index & "行，" & vbNewLine & "对应工作表数据源第" & xh + 1 & "行"
End Sub

3190496160

laterite

3190496160 发表于 2024-3-25 17:42
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    Dim xh As Long
    xh  ...

看了老师的代码恍然大悟啊，怪我糊涂，既然序号是唯一值，那么序号加1就可以取到工作表数据行号了

多谢提点

laterite

shiruiqiang 发表于 2024-3-25 17:29
把后面6列通过特殊符号连接，然后作为字典去查找。如果还有2个以上的值，那非经手人都不嫩判断了

这个办法是可行的，也想过，但是比较麻烦，还是直接序号加1简单一点，是我自己糊涂没想到，不过还是感谢建议

laterite

tanglf188 发表于 2024-3-25 17:34
工作表行不就是控件里序号+1，直接获取序号加1就行了

是的是的，怪我太糊涂，一时没想到，多谢帮助