在窗體中如何自動顯示級聯(lián)的相關內容

mahl77

代碼如下：
Private Sub ProN_AfterUpdate()
  Dim rsOrder As ADODB.Recordset
  Dim SQLStmt As String
  
   If Not IsNull(Me!OrderN) Then
     Set rsOrder = New ADODB.Recordset
     SQLStmt = "SELECT * FROM TableOrder " _
        & "WHERE OrderN = " & Me!OrderN
     rsOrder.Open SQLStmt, CurrentProject.Connection, _
        adOpenKeyset, adLockOptimistic
     If Not rsOrder.EOF Then
       rsOrder!PrMC = Me!ProN.Column(1)
       rsOrder.Update
     End If
   End If
  
  Me.Requery
  rsOrder.Close
  Set rsOrder = Nothing
End Sub
完整文件見附件。
請幫忙指教一下。
非常感謝。

yanghua1900363

1、弄清楚表間的關系（產品是有品牌屬性的，而訂單是沒有品牌的屬性，因此，建議刪除 品牌表與訂單表間的關系）
2、如果能用簡單的查詢就能解決問題，建議不要用ado或者dao
3、上傳實例中“品牌產品查詢”解決了品牌和產品數據分屬兩個表的問題。

mahl77

yanghua1900363 發(fā)表于 2011-10-2 17:43
1、弄清楚表間的關系（產品是有品牌屬性的，而訂單是沒有品牌的屬性，因此，建議刪除 品牌表與訂單表間的關 ...

謝謝您的回復。
我的想法是這樣：FormOrder窗體作為客戶訂購產品的“訂單窗體”的子窗體，在它里面顯示客戶某次訂購的“產品列表”，為了便于閱讀，所以希望同一品牌的產品挨著在一起，所以在實際制作訂單時，希望先選擇產品品牌，然后選擇產品貨號，選擇貨號時，貨號的待選擇項僅顯示該品牌下的產品，貨號選擇后，相應的產品名稱自動顯示在“產品列表”的產品名稱里面。
能否幫助實現(xiàn)上述功能？
非常感謝。

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

復制代碼

mahl77

Henry D. Sy 發(fā)表于 2011-10-4 15:23

非常感謝。

yanghua1900363

Henry D. Sy 發(fā)表于 2011-10-4 15:23

這段代碼簡潔而適用，學習了

灰太郎

123456