📄 12388.html
字号:
<html>
<head>
<title>DataEnvironment & DataCombo </title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>DataEnvironment & DataCombo </h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by Spencer Yang on April 26, 1999 at 18:19:02:<p>
In Reply to: <a href="12342.html">急救 !! DataEnvironment</a> posted by gg on April 24, 1999 at 19:04:37:<p>
Private Sub DataCombo1_Click(Area As Integer)<br> Me.Text1.Text = Me.DataCombo1.BoundText<br>End Sub<p>Private Sub DataCombo1_LostFocus()<br> <br> If deCompany.rsCommand2.State <> adStateClosed Then<br> deCompany.rsCommand2.Close<br> End If<br> deCompany.Commands("Command2").Parameters(0) = Text1.Text<br> <br> Set DataCombo2.RowSource = deCompany<br> With DataCombo2<br> .RowMember = "Command2"<br> .ListField = "BName"<br> .BoundColumn = "BNO"<br> End With<br>End Sub<p>Private Sub DataCombo2_Click(Area As Integer)<br> Text2.Text = DataCombo2.BoundText<br>End Sub<p>Private Sub DataCombo2_LostFocus()<br> If deCompany.rsCommand3.State <> adStateClosed Then<br> deCompany.rsCommand3.Close<br> End If<br> deCompany.Commands("Command3").Parameters(0) = Text2.Text<br> <br> Set DataCombo3.RowSource = deCompany<br> With DataCombo3<br> .RowMember = "Command3"<br> .ListField = "CName"<br> .BoundColumn = "CNO"<br> End With<br>End Sub<p>Private Sub DataCombo3_Click(Area As Integer)<br> Text3.Text = DataCombo3.BoundText<br>End Sub<p>Private Sub DataCombo3_LostFocus()<br> If deCompany.rsCommand4.State <> adStateClosed Then<br> deCompany.rsCommand4.Close<br> End If<br> <br> deCompany.Commands("Command4").Parameters(0) = Text3.Text<br> <br> Set DataCombo4.RowSource = deCompany<br> With DataCombo4<br> .RowMember = "Command4"<br> .ListField = "DName"<br> .BoundColumn = "DNO"<br> End With<br> <br> <br> <br>End Sub<p>Private Sub DataCombo4_Click(Area As Integer)<br> Text4.Text = DataCombo4.BoundText<p> If deCompany.rsCommand5.State <> adStateClosed Then<br> deCompany.rsCommand5.Close<br> End If<br> deCompany.Commands("Command5").Parameters(0) = Text4.Text<br> <br> Set TEXT5.DataSource = deCompany<br> With TEXT5<br> .DataMember = "Command5"<br> .DataField = "Content"<br> End With<br>End Sub
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 12388-->
</ul><!--end: 12388-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -