请教,如何让选择的编号与另一表对应

Henry D. Sy

按楼上的办法处理
如果实在要直接打开查询，则：

1. Private Sub 安驰编号_Click()
   
2. Dim qdf As DAO.QueryDef
   
3.     Dim stDocName As String
   
4.     Dim strSQL As String
   
5.     stDocName = "成本2"
   
6.     Set qdf = CurrentDb.QueryDefs(stDocName)
   
7.     strSQL = _
   
8.         "SELECT 安驰编号,套片数,F4价格,F6价格,铁掌A单价,铁掌B单价, IIf(IsNull(([套片数]/2)*([铁掌A单价]+[铁掌B单价])),0,([套片数]/2)*([铁掌A单价]+[铁掌B单价])) AS 铁掌套价, IIf(IsNull([附件套价]),0,[附件套价]) AS 附件价格, 成本表.纸箱单价, 成本表.箱套数, 成本表.彩盒单价, 成本表.辅料单价, 成本表.人工工资, [纸箱单价]/[箱套数] AS 纸箱分摊, [F4价格]+[铁掌套价]+[附件价格]+[纸箱分摊]+[彩盒单价]+[辅料单价]+[人工工资] AS F4成本, [F6价格]+[铁掌套价]+[附件价格]+[纸箱分摊]+[彩盒单价]+[辅料单价]+[人工工资] AS F6成本 FROM 成本表 where 安驰编号='" _
   
9.         & Me.安驰编号 & "'"
   
10.     qdf.SQL = strSQL
    
11.     DoCmd.OpenQuery stDocName, acNormal
    
12.     qdf.Close
    
13. End Sub
    

复制代码