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