以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]两表模糊匹配  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59532)

--  作者:jackwin
--  发布时间:2014/11/6 9:57:00
--  [求助]两表模糊匹配
现有A、B两张数据表,希望以A表A1列来模糊匹配B表B1列,只要A1列有部分内容包含就B1列中,就引入到B表,请问如何实现
--  作者:Bin
--  发布时间:2014/11/6 9:59:00
--  
http://www.foxtable.com/help/topics/1451.htm
--  作者:jackwin
--  发布时间:2014/11/6 10:09:00
--  
没有实验成功  我将项目上传了  请大神具体指点下 下次我就知道了  就是把表A的A1列 模糊匹配表B的B1列  引入到表B中作为一列
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


--  作者:有点甜
--  发布时间:2014/11/6 10:20:00
--  

 Datacolchanged事件加入代码

 

If e.DataCol.Name = "B1列" Then
    Dim fdr As DataRow = DataTables("表A").Find("A1列 Like \'%" & e.NewValue.replace("*", "[*]") & "%\'")
    If fdr IsNot Nothing Then
        e.DataRow("A1列") = fdr("A1列")
    End If
End If


--  作者:jackwin
--  发布时间:2014/11/6 10:24:00
--  
然后呢
--  作者:有点甜
--  发布时间:2014/11/6 10:25:00
--  

 B表加一列A1列

 

 重置列B1列 http://www.foxtable.com/help/topics/1469.htm

 


--  作者:jackwin
--  发布时间:2014/11/6 10:29:00
--  

重置后 没有如何效果啊

 


--  作者:有点甜
--  发布时间:2014/11/6 10:30:00
--  
 选中B1列重置列,只有匹配的才有效果啊
--  作者:jackwin
--  发布时间:2014/11/6 10:31:00
--  

一个也没有引过来

模糊匹配应该是能干掉一批的


--  作者:有点甜
--  发布时间:2014/11/6 10:32:00
--  

 1、代码要写到表B的Datacolchanged事件;

 

 2、要选中表B的B1列,重置列