|
系统提示:SELECT 子句包含一个保留字、拼写错误或丢失的参数,或标点符号不正确。
请问怎么改?
Public Function funSetFilter()
Dim strSql As String
strSql = "SELECT 员工产量合计查询.班组, 员工产量合计查询.工序ID, 员工产量合计查询.工序 , 员工产量合计查询.工号, 员工产量合计查询.姓名, 员工产量合计查询.体积, 员工产量合计查询.备注, 员工产量合计查询.产量之总计, 工价表.工价, [产量之总计]*[工价] AS 计件工资小计FROM 员工产量合计查询 INNER JOIN 工价表 ON (员工产量合计查询.备注 = 工价表.备注) AND (员工产量合计查询.工序ID = 工价表.工序ID) AND (员工产量合计查询.体积 = 工价表.体积)"
If 班组 <> "" Then
strSql = strSql & " And ((员工产量合计查询.班组) = [Forms]![员工工资明细]![班组])"
End If
If 工序 <> "" Then
strSql = strSql & " And ((员工产量合计查询.工序 ) = [Forms]![员工工资明细]![工序]"
End If
If 工号 <> "" Then
strSql = strSql & " And ((员工产量合计查询.工号]) = [Forms]![员工工资明细]![工号])"
End If
If 姓名 <> "" Then
strSql = strSql & " And ((员工产量合计查询.姓名) = [Forms]![员工工资明细]![姓名)"
End If
Me.员工计件工资小计子窗体.Form.RecordSource = strSql
End Function
[ 本帖最后由 sbsfhgl 于 2008-1-4 08:56 编辑 ] |
|