📄 12433.html
字号:
<html>
<head>
<title>Re: Answer fot " DataCombo2资料来源由DataCombo来选择"</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: Answer fot " DataCombo2资料来源由DataCombo来选择"</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by Spencer Yang on April 28, 1999 at 07:12:21:<p>
In Reply to: <a href="12418.html">请教 DataCombo 的问题 材!</a> posted by gg on April 27, 1999 at 17:18:04:<p>
'=========================================================================================<br>' File: frmBusinessItem.frm<br>'<br>' Copyright:<br>'<br>' Date Created: 1999/04/28<br>'<br>' Initial Author: Spencer Yang<br>'<br>' Purpose: 假设 DataCombo1之资料来源为县巿, DataCombo2之资料来源为乡镇<br>' 使用者点选 DataCombo1后, 比如台北县, DataCombo2的资料来源会随之异动, 比如<br>' 只有出现板桥市、永和巿...<br>'<br>' Entry Points:<br>'<br>' Dependencies:<br>'<br>' Issues:<br>'<br>' Method:<br>'=========================================================================================<br>Option Explicit<p>' ... 表单<br>'<br>' adodc1:县巿<br>' adodc2:乡镇(其中connectString, CommandType,RecordSource为空)<br>' DataCombo1:县巿名称<br>' DataCombo2:乡镇名称<br>' Text1:县巿编号<br>' Text2:乡镇编号<p>Private Sub DataCombo1_Click(Area As Integer)<br> ' 传入县巿编号<br> Text1.Text = DataCombo1.BoundText<br>End Sub<p>Private Sub DataCombo1_LostFocus()<br> DoQuery<br>End Sub<p>Private Sub DataCombo2_Click(Area As Integer)<br> Text2.Text = DataCombo2.BoundText<br>End Sub<p>Sub DoQuery()<br> Dim strConnectionString As String ' 连接字串变数<br> Dim strCountyNo As String ' 县巿编号变数<br> Dim strSQL As String ' SQL 字串变数<br> <br> On Error Resume Next<br> <br> '------------------------------------------------<br> ' D0 资料控制项<br> '------------------------------------------------<br> strConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=C:\Utility\utlAddress.mdb"<br> <br> strCountyNo = Text1.Text<br> <br> strSQL = "SELECT 乡镇编号, 乡镇名称, 县巿编号 " _<br> & "FROM tbl3_Town " _<br> & "WHERE 县巿编号=" & Chr(39) & strCountyNo & Chr(39) _<br> & " ORDER BY 乡镇编号 "<br> <br> With Adodc2<br> .ConnectionString = strConnectionString<br> .CommandType = adCmdText<br> .RecordSource = strSQL<br> .Refresh<br> End With<br> <br>End Sub<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 12433-->
</ul><!--end: 12433-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -