新手，如何自动选取对应数据

liaozy

“员工信息”表中，先输入区域的信息后，如何在“企业”字段中自动显示某区域对应的企业，而不是全部的企业名称，新手，请指教

Henry D. Sy

表中不行，只能是在窗体上实现！

Henry D. Sy

1. Private Sub 区域ID_AfterUpdate()
   
2.     Dim strSQL As String
   
3.     If Not IsNull(Me.区域ID) Then
   
4.         strSQL = "SELECT 企业ID FROM 企业类型 WHERE 区域ID='" & Me.区域ID & "'"
   
5.         Me.企业.RowSource = strSQL
   
6.     End If
   
7. End Sub
   

复制代码

liaozy

收到，谢谢