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

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 发表于 2011-10-2 17:43
1、弄清楚表间的关系（产品是有品牌属性的，而订单是没有品牌的属性，因此，建议删除 品牌表与订单表间的关 ...

谢谢您的回复。
我的想法是这样：FormOrder窗体作为客户订购产品的“订单窗体”的子窗体，在它里面显示客户某次订购的“产品列表”，为了便于阅读，所以希望同一品牌的产品挨着在一起，所以在实际制作订单时，希望先选择产品品牌，然后选择产品货号，选择货号时，货号的待选择项仅显示该品牌下的产品，货号选择后，相应的产品名称自动显示在“产品列表”的产品名称里面。
能否帮助实现上述功能？
非常感谢。

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 发表于 2011-10-4 15:23

非常感谢。

yanghua1900363

Henry D. Sy 发表于 2011-10-4 15:23

这段代码简洁而适用，学习了

灰太郎

123456