主题：下面这样的语句能遍历每一条符合的记录吗？

思路本身就错了，粘贴以后，跨表引用数据

http://www.foxtable.com/webhelp/scr/1451.htm

If Tables("粘贴数据").rows.count <>0
For Each r As Row In Tables("粘贴数据").rows
    For Each dr As DataRow In DataTables("商品档案").Select("品名 like '%"& r("粘贴数据") &"%'" )
        Dim fdr As DataRow = DataTables("销售").sqlfind("品名 ='" & r("粘贴数据") &"' And 客户名称='" & Vars("kh") & "'", "销售日期 desc")
        If fdr IsNot Nothing Then
            Dim lsxs As Row=Tables("销售临时").AddNew
            lsxs("品名")=fdr("品名")
            lsxs("规格")=fdr("规格")
            lsxs("销售单价")=fdr("销售单价")
            lsxs("客户名称")=fdr("客户名称")
            lsxs("区域")=fdr("区域")
            lsxs("地址")=fdr("地址")
            'lsxs("日期")=fdr("日期")
        Else
            Dim fdr1 As DataRow = DataTables("销售").find("品名 ='"& r("粘贴数据") &"'", "销售日期 desc")
            If fdr1 IsNot Nothing Then
                Dim lsxs As Row=Tables("销售临时").AddNew
                lsxs("品名")=fdr1("品名")
                'lsxs("型号")=fdr1("型号")
                lsxs("销售单价")=fdr1("销售单价")
                lsxs("客户名称")=fdr1("客户名称")
                lsxs("区域")=fdr1("区域")
                lsxs("地址")=fdr1("地址")
                'lsxs("日期")=fdr1("日期")
            End If
        End If
        If dr("品名")<>r("粘贴数据")  Then
            Dim xsxs As DataRow = DataTables("销售").find("品名 ='" & dr("品名") &"'", "销售日期 desc")
            If xsxs IsNot Nothing Then
                Dim lsxs As Row=Tables("销售临时").AddNew
                lsxs("品名")=xsxs("品名")
                'lsxs("型号")=xsxs("型号")
                lsxs("销售单价")=xsxs("销售单价")
                lsxs("客户名称")=xsxs("客户名称")
                lsxs("区域")=xsxs("区域")
                lsxs("地址")=xsxs("地址")
                'lsxs("日期")=xsxs("日期")
            End If
        End If
    Next
Next
End If
msgbox("完成")

For Each r As Row In Tables("粘贴数据").rows

改成

For Each r As DataRow In Tables("粘贴数据").datatable.select("粘贴数据 is not null")

每一个品名都不能查询？比如你输入 3300 也查不到？

你代码的逻辑是什么？请举例具体说明。

为什么要循环查询【商品档案】，然后又查询【销售】表？

百分号的处理，要修改代码，如

For Each dr As DataRow In DataTables("商品档案").Select("品名 like '%"& r("粘贴数据").replace("%", "[%]") &"%'" )