Office中国论坛/Access中国论坛

标题: ListView中Checked 的问题，， [打印本页]
作者: ty_1029    时间: 2014-11-18 16:00
标题: ListView中Checked 的问题，，
本帖最后由 ty_1029 于 2014-11-18 16:39 编辑

[attach]55067[/attach]
上面是一个效果图，用过选择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 & "%'"
复制代码

作者: 盗梦    时间: 2014-11-18 16:04
本帖最后由 盗梦 于 2014-11-18 16:08 编辑

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

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

谢谢，，我试试去 ~~~~~~~~~~~
作者: 盗梦    时间: 2014-11-18 16:13
ty_1029 发表于 2014-11-18 16:09
谢谢，，我试试去 ~~~~~~~~~~~

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

用你的办法速度验证， ，貌似不合适~~~~~~
作者: 盗梦    时间: 2014-11-18 16:19
ty_1029 发表于 2014-11-18 16:15
用你的办法速度验证， ，貌似不合适~~~~~~

你代码有问题吗？建议下个断点跟踪一下就出来了
作者: tmtony    时间: 2014-11-19 12:07
先将所有Checked的项目 设置为未选
再设置当前项被选择



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3