以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  下面这样的语句能遍历每一条符合的记录吗？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=112719)
--  作者：xxfoxtable
--  发布时间：2018/1/1 20:15:00
--  下面这样的语句能遍历每一条符合的记录吗？
For Each dr As DataRow In DataTables("商品档案").Select("品名 like \'%"& tables("粘贴数据").Current("粘贴数据") &"%\'" )
next
[此贴子已经被作者于2018/1/1 20:14:48编辑过]
--  作者：y2287958
--  发布时间：2018/1/1 20:46:00
--  
能
--  作者：xxfoxtable
--  发布时间：2018/1/1 21:00:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:粘贴.rar

有很多不妥的地方，请甜老师帮忙改一下，主要是实现批量粘贴品名，获取以往销售记录
--  作者：y2287958
--  发布时间：2018/1/1 21:07:00
--  
不知所指？就不能详细点说明？
--  作者：xxfoxtable
--  发布时间：2018/1/1 21:10:00
--  

搜索相近或者相同的品名，把最近的销售记录从销售流水表中提取出来
--  作者：有点甜
--  发布时间：2018/1/1 21:51:00
--  

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

 

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

 
--  作者：xxfoxtable
--  发布时间：2018/1/1 21:56:00
--  

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

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

[此贴子已经被作者于2018/1/1 22:05:42编辑过]
--  作者：andy-1024
--  发布时间：2018/1/1 22:37:00
--  
 先定义一个模糊查询的筛选条件语句，如果数据都加载了的话，用table.Filter = 模糊查询条件语句  试试呢？
--  作者：xxfoxtable
--  发布时间：2018/1/1 22:38:00
--  

思路有，有些代码不会写，3楼有示例文件
--  作者：有点甜
--  发布时间：2018/1/1 23:20:00
--  

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