[求助]单击列表框中条目该条目显示在文本框中

apple_a1

原帖由 andymark 于 2007-7-11 00:43 发表
Private Sub 名称_Click()If Len(Me.Text4) > 0 Then
Me.Text4 = Me.Text4 & Space(2) & Me.名称ElseMe.Text4 = Me.名称End IfEnd Sub

能排除重复选择的名称吗？

goto2008

再次问一下..............怎么实现 10楼的功能

andymark

增加一个判断

1. 
   
2. 
   
3. Private Sub 名称_DblClick(Cancel As Integer)
   
4. 
   
5.   If Len(Me.Text4) > 0 Then
   
6. 
   
7.       If InStr(1, Me.Text4, Me.名称) <= 0 Then
   
8.           Me.Text4 = Me.Text4 & Space(2) & Me.名称
   
9.       End If
   
10.    
    
11.    Else
    
12. 
    
13.       Me.Text4 = Me.名称
    
14. 
    
15.   End If
    
16. 
    
17. End Sub

复制代码

apple_a1

andymark：
如果误选的话，那么能取消文本框中的值吗？

kent_73

原帖由 apple_a1 于 2008-7-10 15:40 发表
andymark：
如果误选的话，那么能取消文本框中的值吗？

各位高手，能解决这个问题吗？