主题：[求助]提示sql语句执行错误

Dim Filter As String

With e.Form.Controls("txtkh")

    If .Value IsNot Nothing Then

        Filter = "Customer like '%" & .Value & "%'"

    End If

End With

With e.Form.Controls("txtcp")

    If .Value IsNot Nothing Then

        If Filter > "" Then

            Filter = Filter & " And "

        End If

        Filter = Filter & "Product like '%" & .Value & "%'"

    End If

End With

With e.Form.Controls("txtgdh")

    If .Value IsNot Nothing Then

        If Filter >"" Then

            Filter = Filter & " And "

        End If

        Filter = Filter & "PNum like '%" & .Value & "%'"

    End If

End With

With e.Form.Controls("txthth")

    If .Value IsNot Nothing Then

        If Filter >"" Then

            Filter = Filter & " And "

        End If

        Filter = Filter & "ContractNum like '%" & .Value & "%'"

    End If

End With

With e.Form.Controls("txtddh")

    If .Value IsNot Nothing Then

        If Filter >"" Then

            Filter = Filter & " And "

        End If

        Filter = Filter & "OrderNum like '%" & .Value & "%'"

    End If

End With

With e.Form.Controls("cmbywy")

    If .Value IsNot Nothing Then

        If Filter > "" Then

            Filter = Filter & " And "

        End If

        Filter = Filter & "Sales like '%" & .Value & "%'"

    End If

End With

With e.Form.Controls("startdate")

    If .Value IsNot Nothing Then

        If Filter >"" Then

            Filter = Filter & " And "

        End If

        Filter = Filter & "InDate >= '" & .Value & "'"

    End If

End With

With e.Form.Controls("enddate")

    If .Value IsNot Nothing Then

        If Filter >"" Then

            Filter = Filter & " And "

        End If

        Filter = Filter & "InDate <= '" & .Value & "'"

    End If

End With

If Filter > "" Then

DataTables("工单资料").Fill("Select {PNumPrintInfo}.ID,{PNumPrintInfo}.PNum,{PNumPrintInfo}.Product,PartsName,MPStyle,PaperName,PrintScale,PrintColor,PrintColorDes,PCount,LCount,TotalCount,DevName,MScale,MPCount,Customer,ContractNum,InDate,OrderNum,Sales Fro m {PNumPrintInfo} Inner JOIN {PNumSumInfo} ON {PNumSumInfo}.[PNum] = {PNumPrintInfo}.[PNum] Where Filter Order By InDate desc", "xunyue", True)

End If

此主题相关图片如下：测试.png

改成

 

DataTables("工单资料").Fill("Select {PNumPrintInfo}.ID,{PNumPrintInfo}.PNum,{PNumPrintInfo}.Product,PartsName,MPStyle,PaperName,PrintScale,PrintColor,PrintColorDes,PCount,LCount,TotalCount,DevName,MScale,MPCount,Customer,ContractNum,InDate,OrderNum,Sales Fro m {PNumPrintInfo} Inner JOIN {PNumSumInfo} ON {PNumSumInfo}.[PNum] = {PNumPrintInfo}.[PNum] Where " & Filter & " Order By InDate desc", "xunyue", True)

好的，谢谢

With e.Form.Controls("txtcp") '产品名称

    If .Value IsNot Nothing Then

        If Filter > "" Then

            Filter = Filter & " And "

        End If

        Filter = Filter & "Product like '%" & .Value & "%'"

    End If

End With

With e.Form.Controls("txtgdh") '工单号

    If .Value IsNot Nothing Then

        If Filter >"" Then

            Filter = Filter & " And "

        End If

        Filter = Filter & "PNum like '%" & .Value & "%'"

    End If

End With

With e.Form.Controls("txtddh") '订单号

    If .Value IsNot Nothing Then

        If Filter >"" Then

            Filter = Filter & " And "

        End If

        Filter = Filter & "OrderNum like '%" & .Value & "%'"

    End If

End With

查询条件输入订单号，工单号，产品名称 后又会提示sql语句执行错误。 不知道哪里还要修改？

试试改成（sqlserver数据源的话）

 

Filter = Filter & "convert(varchar(200), PNum) like '%" & .Value & "%'"

是的 sql 数据源

Filter = Filter & "convert(varchar(200), OrderNum) like '%" & .Value & "%'"

如果还报错，msgbox(filter) 弹出的值，发上来看看。