在窗体中如何自动显示级联的相关内容

Henry D. Sy

1. Private Sub ProB_AfterUpdate()
   
2.     Dim strWhere As String
   
3.     Dim strSQL As String
   
4.     On Error GoTo ProB_AfterUpdate_Error
   
5. 
   
6.     strWhere = Me.ProB
   
7.     strSQL = "SELECT ProductTable.ProN FROM ProductTable WHERE ProductTable.ProB='" _
   
8.              & strWhere & "'"
   
9.     Me.ProN.RowSource = strSQL
   
10. 
    
11.     On Error GoTo 0
    
12.     Exit Sub
    
13. 
    
14. ProB_AfterUpdate_Error:
    
15. 
    
16.     MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
    
17. End Sub

复制代码