以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  提取最近使用过的单价  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=176951)
--  作者：zhuxinhui
--  发布时间：2022/5/4 17:39:00
--  提取最近使用过的单价

Dim dr2 As DataRow = e.DataRow

Select Case e.DataCol.Name
    Case "物料编码","往来名称" 
       If dr2.IsNull(e.DataCol.Name) Then
           dr2("单价") = Nothing
        Else
                Dim da As Date = e.DataRow("日期")
            Dim fdr As DataRow = DataTables("销售出库明细").SQLfind("往来名称 =\'" & dr2("往来名称") & "\'And 物料编码 =\'" & dr2("物料编码") & "\'and 日期 <= #" & da & "#","日期 desc")  
            If fdr IsNot Nothing
                dr2("单价") = fdr("单价")
                 End If
        End If
End Select
提取当前表最近使用过的单价，哪里出问题了不起作用
Dim fdr As DataRow = DataTables("销售出库明细").SQLfind("往来名称 =\'" & dr2("往来名称") & "\'And 物料编码 =\'" & dr2("物料编码") & "\'and 日期 <= #" & da & "#","日期 desc")  
上面句哪里出问题？？？？？
--  作者：程兴刚
--  发布时间：2022/5/4 18:16:00
--  
And、and前加空格
--  作者：有点蓝
--  发布时间：2022/5/4 21:59:00
--  
什么数据库？

调试看看
msgbox("往来名称 =\'" & dr2("往来名称") & "\'And 物料编码 =\'" & dr2("物料编码") & "\'and 日期 <= #" & da & "#")

把弹出的条件附加到下面sql，然后到数据库执行看看提示什么错误

select * from 销售出库明细 where 上面弹出的条件
--  作者：zhuxinhui
--  发布时间：2022/5/5 9:42:00
--  
这个语句没有问题，是其他问题