13471.html

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 42 行

HTML
42
字号
<html>
  <head>
    <title>ListBox一问</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>ListBox一问</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by Meang on May 27, 1999 at 14:52:58:<p>
程式片断如下:   Control有ListBox与Data , ListBox内已Add各订户的名称<p>    FindEmployee = InputBox("输入欲寻找的订户姓名..." & vbCrLf & "可输入关键字即可!", "输入")<br>    If FindEmployee = "" Then Exit Sub<br>    With dtaPrice<br>        .Recordset.FindFirst "订户 Like '*" & FindEmployee & "*'"<br>        If .Recordset.NoMatch Then<br>            MsgBox "找不到此订户姓名! 请确定输入正确。", vbCritical, "输入错误"<br>            Exit Sub<br>        Else<br>            '****************************************<br>            'ListBox跳到该Item上(点选状态)<br>            '请问如何写???   谢谢<br>            '****************************************<br>        End If<br>    End With<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 13471-->
<!--top: 13477--><li><a href="13477.html">Re: ListBox一问</a> <b>飞云</b> <i>15:32:36 5/27/99</i>
(<!--responses: 13477-->4)
<ul><!--insert: 13477-->
<!--top: 13480--><li><a href="13480.html">Selected属性无法将驻点放到该Item啊 !</a> <b>Meang</b> <i>16:14:56 5/27/99</i>
(<!--responses: 13480-->3)
<ul><!--insert: 13480-->
<!--top: 13483--><li><a href="13483.html">Re: Selected属性无法将驻点放到该Item啊 !</a> <b>JOB</b> <i>17:30:13 5/27/99</i>
(<!--responses: 13483-->2)
<ul><!--insert: 13483-->
<!--top: 13544--><li><a href="13544.html">Re: Selected属性无法将驻点放到该Item啊 !</a> <b>Meang</b> <i>09:21:16 5/29/99</i>
(<!--responses: 13544-->1)
<ul><!--insert: 13544-->
<!--top: 13611--><li><a href="13611.html">Re: Selected属性无法将驻点放到该Item啊 !</a> <b>JOB</b> <i>11:54:56 5/31/99</i>
(<!--responses: 13611-->0)
<ul><!--insert: 13611-->
</ul><!--end: 13611-->
</ul><!--end: 13544-->
</ul><!--end: 13483-->
</ul><!--end: 13480-->
</ul><!--end: 13477-->
</ul><!--end: 13471-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?