| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 比较两列的相似性 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=143303) |
| -- 作者：wh420 -- 发布时间：2019/11/20 17:02:00 -- 比较两列的相似性 A列内容：易方达指数 B列内容: 易方达基金公司 用A列内容的前两个字符做为关键词（“易方”）去B列模糊查找的语句怎么写？ |
| -- 作者：有点蓝 -- 发布时间：2019/11/20 17:29:00 -- Tables("表A").filter = "B列 like Substring(A列,1,2) + \'%\'" |
| -- 作者：wh420 -- 发布时间：2019/11/21 15:52:00 -- 请问老师如果把您说的语句写到标红的那一行代码中如何写？ Dim flag As Boolean = False For Each dr As DataRow In DataTables("数据库1").datarows Dim drr As DataRow = DataTables("数据库1").find("A列=\'" & dr("B列") & "\'") If drr IsNot Nothing Then dr("重复标记")="有重复" flag = True End If Next If flag = False Then Messagebox.Show("没有重复记录!","提示") End If
|
| -- 作者：wh420 -- 发布时间：2019/11/21 16:26:00 -- 有点蓝老师帮忙看一下。 |
| -- 作者：有点蓝 -- 发布时间：2019/11/21 16:26:00 -- For Each dr As DataRow In DataTables("数据库1").select("A列=\'" & dr("B列") & "\'") dr("重复标记")="有重复" flag = True Next
|
| -- 作者：wh420 -- 发布时间：2019/11/21 18:50:00 -- 不是完全匹配啊，是用A列内容的前两个字符做为关键词（“易方”）去B列模糊查找 |
| -- 作者：wh420 -- 发布时间：2019/11/21 18:51:00 -- 至少要用like Substring吧？ |
| -- 作者：狐狸爸爸 -- 发布时间：2019/11/22 9:11:00 -- Dim flag As Boolean = False For Each dr As DataRow In DataTables("数据库1").datarows Dim val As String = dr("B列") Dim drr As DataRow = Nothing If val > "" Then drr = DataTables("数据库1").find("A列=\'" & val.SubString(0,2) & "\'") End If If drr IsNot Nothing Then dr("重复标记")="有重复" flag = True Else dr("重复标记")= Nothing End If Next |