求助焦点问题

forman

输入错误，弹出Msgbox框，按确定后焦点转到了下一个控件，请问怎样才能让焦点保持在当前控件而不跳到下个控件？

zyp

me.当前控件名.setfocus

forman

试过了··回不去···

Henry D. Sy

1. Private Sub asdfas_BeforeUpdate(Cancel As Integer)
   
2.     Dim intCount As Integer, H As Integer
   
3.     Dim I As Integer, J As Integer, K As Integer
   
4.     Dim strArray() As String
   
5.     intCount = Len(Me.asdfas.Text)
   
6.     If intCount Mod 2 <> 0 Then
   
7.         MsgBox "请输入偶数位的数据"
   
8.         Cancel = True
   
9.     End If
   
10.     H = intCount / 2 - 1
    
11.     ReDim strArray(H)
    
12.     For I = 0 To intCount - 2 Step 2
    
13.         strArray(J) = Mid(Me.asdfas.Text, I + 1, 2)
    
14.         J = J + 1
    
15.     Next
    
16.     K = UBound(strArray)
    
17.     For I = 0 To K
    
18.         For J = 0 To K
    
19.             If I <> J Then
    
20.                 If strArray(I) = strArray(J) Then
    
21.                     MsgBox strArray(I) & " 有重复"
    
22.                     Cancel = True
    
23.                     Exit Sub
    
24.                 End If
    
25.             End If
    
26.         Next
    
27.     Next
    
28. End Sub

复制代码

forman

刚想到了 写个SendKeys "+{tab}" 进去就OK了··不知道为什么用ME.控件名.setfocus 回不去

forman

太感谢你了 DDDDDD···帮我解决了那么多问题··谢谢··