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

For Each dr As DataRow In DataTables("商品档案").Select("品名 like '%"& tables("粘贴数据").Current("粘贴数据") &"%'" )
next

能

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:粘贴.rar

有很多不妥的地方，请甜老师帮忙改一下，主要是实现批量粘贴品名，获取以往销售记录

不知所指？就不能详细点说明？

搜索相近或者相同的品名，把最近的销售记录从销售流水表中提取出来

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

 

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

 

想批量显示出来，帮助是输入哪个提示哪个，能不能按我的思路改一下呢？

搜索相近或者相同的品名，把最近的销售记录从销售流水表中批量提取出来

 先定义一个模糊查询的筛选条件语句，如果数据都加载了的话，用table.Filter = 模糊查询条件语句  试试呢？

思路有，有些代码不会写，3楼有示例文件

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("完成")