640.html

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

HTML
25
字号
<html>  <head>    <title>Dbcombo控制项 </title>  </head>  <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">    <center>      <h1>Dbcombo控制项 </h1>    </center><HR><p>Posted by <a href="mailto:airbird@ms6.hinet.net">airbird</a> on September 22, 1997 at 03:34:34:<p>请问为什么我用"Tab键"去选择Dbcombo控制项<br>中的资料,Dbcombo与Dblist的栏位无法对应?<br>我有在Dbcombo的click事件中写:<br>Dim cn As rdoConnection<br>Static temp1, temp2, temp3 As Variant<br>   <br>   If DBCombo1.Text = temp2 Then Exit Sub<br>   <br>   temp2 = DBCombo1.Text<br>   <br>   Dim rsTemp As rdoResultset<br>   Set cn = MSRDC1.Connection<br>   Set rsTemp = cn.OpenResultset(" select 栏位 from 资料库" _<br>                      & " where 栏位 = '" & temp2 & "' ", _<br>         rdOpenKeyset)<br>   Set MSRDC1.Resultset = rsTemp<br>   temp3 = MSRDC1.Resultset!栏位<br>   MSRDC2.SQL = " select 栏位 from 资料库 " _<br>                      & " where 栏位 = '" & temp3 & "' "<br>   MSRDC2.Refresh<p>  Dbcombo1--Msrdc1<br>  Dblist1--Msrdc2<br><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 640--><!--top: 662--><li><a href="662.html"><b>Tab 键?</b></a> 小吴 <i>17:45:04 9/24/97</i>(<!--responses: 662-->0)<ul><!--insert: 662--></ul><!--end: 662--></ul><!--end: 640--><br><HR><p></body></html>

⌨️ 快捷键说明

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