[已解决]VBA＿窗体查询人员信息时，遇有重名，只能显示第一个人的信息

zjdh

yjwdjfqb 发表于 2012-11-6 22:59
老师你好，在简码输入框输入　　DS　　选择选择人员，就会出错，是怎么回事呀，

5楼、8楼附件已更新。

yjwdjfqb

zjdh 发表于 2012-11-7 10:07
5楼、8楼附件已更新。

老师你好，DS，只有一个信息，数量处变为了二个信息了

zjdh

yjwdjfqb 发表于 2012-11-7 10:14
老师你好，DS，只有一个信息，数量处变为了二个信息了

忽略了
5楼、8楼附件已更新。

zjdh

前面的附件，3个吕布只能输入1个，现作修改。
重名查询4.rar (37.75 KB, 下载次数: 26)

2012-11-8 13:08 上传

点击文件名下载附件

yjwdjfqb

zjdh 发表于 2012-11-8 13:08
前面的附件，3个吕布只能输入1个，现作修改。

谢谢老师这个很好，感谢了哟！！！

yjwdjfqb

zjdh 发表于 2012-11-8 13:08
前面的附件，3个吕布只能输入1个，现作修改。

老师你好，图片中，王度刚　下一行是个空行，如果一点上就很报错，为什么有空行呢，可以在这个位置不要空行吧，

如果老师有空，麻烦请老师斧正下好不，谢谢啦！！！

zjdh

yjwdjfqb 发表于 2012-11-9 09:06
老师你好，图片中，王度刚　下一行是个空行，如果一点上就很报错，为什么有空行呢，可以在这个位置不要空 ...

这是针对你10楼的问题添加的，添加一句容错语句即可：
Private Sub 结果列表框_Click()
    Dim wsrg As Range
    Dim hang%
    On Error Resume Next
    Set wsrg = Sheets("总数").Range("B1")            
    hang = 结果列表框.List(结果列表框.ListIndex, 1)                    
    姓名.Caption = 结果列表框.List(结果列表框.ListIndex, 0)
   ...............   
End Sub

yjwdjfqb

zjdh 发表于 2012-11-9 09:19
这是针对你10楼的问题添加的，添加一句容错语句即可：
Private Sub 结果列表框_Click()
    Dim wsrg A ...

谢谢老师的指导！！！