组合框的问题

可用不在列表框事件处理之：

Private Sub Text0_NotInList(NewData As String, Response As Integer)
Dim i As Long
Response = acDataErrContinue
For i = 0 To Me.Text0.ListCount - 1
    If Me.Text0.Column(1, i) = NewData Then
        Me.Text0.Value = Null
        Me.Text0.SelText = Me.Text0.Column(0, i)
        Exit For
    End If
Next
End Sub