是否在SelectBox里

ywfqd

Public Function InSelectBox(mlistbox As listbox, strFind As String) As Boolean
On Error GoTo Err_InSelectBox

InSelectBox = False
For i = 0 To mlistbox.ListCount - 1
  If UCase(mlistbox.ItemData(i)) = UCase(strFind) Then
    InSelectBox = True
    Exit For
  End If
Next i

Exit_InSelectBox:
  Exit Function
Err_InSelectBox:
  MsgBox Err.Description
  GoTo Exit_InSelectBox
End Function

fan0217

看了你几贴，都是没头没尾，能否作点必要的说明啊！