# ListBox一问

Posted by Meang on May 27, 1999 at 14:52:58:

程式片断如下： Control有ListBox与Data , ListBox内已Add各订户的名称

FindEmployee = InputBox("输入欲寻找的订户姓名..." & vbCrLf & "可输入关键字即可！", "输入")
If FindEmployee = "" Then Exit Sub
With dtaPrice
.Recordset.FindFirst "订户 Like '*" & FindEmployee & "*'"
If .Recordset.NoMatch Then
MsgBox "找不到此订户姓名! 请确定输入正确。", vbCritical, "输入错误"
Exit Sub
Else
'****************************************
'ListBox跳到该Item上(点选状态)
'请问如何写??? 谢谢
'****************************************
End If
End With

Follow Ups:

- Re: ListBox一问 飞云 15:32:36 5/27/99 (4)
  - Selected属性无法将驻点放到该Item啊 ! Meang 16:14:56 5/27/99 (3)
    - Re: Selected属性无法将驻点放到该Item啊 ! JOB 17:30:13 5/27/99 (2)
      - Re: Selected属性无法将驻点放到该Item啊 ! Meang 09:21:16 5/29/99 (1)
        - Re: Selected属性无法将驻点放到该Item啊 ! JOB 11:54:56 5/31/99 (0)