[求助]为什么在查询里输入参数时能查询到，我一点导出，可以获得控件的值，却筛选不

secowu

查询代码为：

SELECT *

FROM 全部订单明细

WHERE 工作单号 Like Form!文员制单界面!按工作单号查询;

导出代码为：

Private Sub 导出当前_Click()

'===========================================================================

'导出当前选择的订单明细

Dim queb As QueryDef

Dim CH As String

CH = Me.按工作单号查询

Set queb = CurrentDb.QueryDefs("当前订单")

queb.SQL = "SELECT * FROM 全部订单明细 WHERE 工作单号 Like " & CH & ";"

queb.Close

DoCmd.OutputTo acOutputQuery, "当前订单", acFormatXLS, "工作单号为：" & Me.工作单号 & "的订单明细.xls", True

End Sub

为什么不行呢？急！

另外：还真请海狸先生帮我把那个翻单的代码写出来。谢谢

[此贴子已经被作者于2005-7-20 16:57:20编辑过]