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 + -
显示快捷键?