ListView中Checked 的问题，，

ty_1029

上面是一个效果图，用过选择CHECKBOX后，可以查看详细数据，但查看会调用另外一个窗体，所以，在查看按钮下，仅允许选择其中一条记录。
当选择少于1或大于1时，均不执行后面的命令，只有=1时自行。下面是我写 的。

感觉错误出在“     pzhString = .SubItems(1)   '后面需要以该字段作唯一性条件进行查询出结果，必须得要的”这段上，请问该如何修改。


其实说了很多，问题的关键，是怎么样在“查看”，“删除”命令下，获取到所选择了该行第二列的字段值~~~
PS：查看只需获得当前唯一的记录，删除需要所有被选的

1. Dim pzhString As String
   
2. countnum = 0
   
3.       Dim i As Integer
   
4.       For i = 1 To ListView1.ListItems.count
   
5.               With ListView1
   
6.              If .ListItems(i).Checked Then
   
7.                  countnum = countnum + 1
   
8.                  pzhString = .SubItems(1)   '后面需要以该字段作唯一性条件进行查询出结果，必须得要的
   
9.              End If
   
10.          End With
    
11.       Next
    
12. If countnum > 1 Then
    
13. MsgBox "您只能一次查看一条的记录，选择多了~~~~~~~~~！", vbCritical, ""
    
14.     Exit Sub
    
15. End If
    
16. If countnum < 1 Then
    
17. MsgBox "请选择一条需要查看的记录！", vbCritical, ""
    
18.     Exit Sub
    
19. End If
    
20. '中间申明部分XXXXXXXXXXXXXXXXXXXXXXXXXXX
    
21. strSQL = "SELECT * FROM dbo.hkwl_DB where pzh like '%" & pzhString & "%'"

复制代码

盗梦

你可以用ListView下面的两个属性
SelectedCount 属性可以得到你选中的个数
SelectedItem   属性可以得到你选择的项目

ty_1029

盗梦 发表于 2014-11-18 16:04
你可以用ListView下面的两个属性
SelectedCount 属性可以得到你选中的个数
SelectedItem   属性可以得到 ...

谢谢，，我试试去 ~~~~~~~~~~~

盗梦

ty_1029 发表于 2014-11-18 16:09
谢谢，，我试试去 ~~~~~~~~~~~

不好意思，我想错了。这个是选中，不是复选框那个

ty_1029

盗梦 发表于 2014-11-18 16:13
不好意思，我想错了。这个是选中，不是复选框那个

用你的办法速度验证， ，貌似不合适~~~~~~

盗梦

ty_1029 发表于 2014-11-18 16:15
用你的办法速度验证， ，貌似不合适~~~~~~

你代码有问题吗？建议下个断点跟踪一下就出来了

tmtony

先将所有Checked的项目 设置为未选
再设置当前项被选择