主题：条件引用字符单引号出错

Dim ds As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "客户全称","送货日期","货料编码"
        If ds.IsNull(e.DataCol.Name) Then
            ds("结算单价") = Nothing
            ds("科目编码") = Nothing
            ds("往来编码") = Nothing
            ds("科目") = Nothing
            ds("业务员") = Nothing
        Else
            Dim fdr As DataRow = DataTables("报价单").find("往来单位='" & ds("客户全称") & "' and 货物编码='" & ds("货料编码") & "' and 终止日期>'" & ds("送货日期") & "'")
            If fdr IsNot Nothing And ds("会计年度") = Nothing And  ds("数量")=<499 And ds("客户全称") = "'东莞市***安防科技有限公司'" Or ds("客户全称") = "'广州**科技股份有限公司'" Then
                ds("结算单价") = fdr("单价")
                ds("结算金额") = ds("数量")*ds("结算单价")
                ds("业务员") = fdr("业务员")
            ElseIf  fdr IsNot Nothing And ds("会计年度") = Nothing And  500 < ds("数量") =< 4999 And ds("客户全称") = '东莞市**安防科技有限公司' Or ds("客户全称") ='广州**科技股份有限公司' Then
                ds("结算单价") = fdr("单价500至4999")
                ds("结算金额") = ds("数量")*ds("结算单价")
                ds("业务员") = fdr("业务员")

            ElseIf  fdr IsNot Nothing And ds("会计年度") = Nothing And  4999 < ds("数量") And ds("客户全称") ='东莞市**安防科技有限公司' Or ds("客户全称") ='广州**科技股份有限公司' Then
                ds("结算单价") = fdr("单价5000以上")
                ds("结算金额") = ds("数量")*ds("结算单价")
                ds("业务员") = fdr("业务员")
此主题相关图片如下：qq截图20190813195341.png


            Else  fdr IsNot Nothing And ds("会计年度") = Nothing
                ds("结算单价") = fdr("单价")
                ds("结算金额") = ds("数量")*ds("结算单价")
                ds("业务员") = fdr("业务员")
            End If
        End If
End Select

……

谢多多指教