[求助]批量查找替换 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]批量查找替换

共有2959人关注过本帖树形打印复制链接主题：[求助]批量查找替换

有点色

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/21 16:51:00 [显示全部帖子]

For Each dr As DataRow In DataTables("表a").DataRows
    Dim fdr As DataRow = DataTables("表B").find("第一列 = '" & dr("第一列") & "'")
    If fdr IsNot Nothing Then
        dr("第二列") = fdr("第二列")
    End If
Next

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/21 17:17:00 [显示全部帖子]

以下是引用13865161910在2017/4/21 17:14:00的发言：
额，好像这个不是将表A中的两列内容根据表B中的内容同时替换把？？？

你根据第一列查找，替换的是第二列。

有点色

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/21 17:35:00 [显示全部帖子]

Dim cs() As String = {"第一列", "第二列"} '表A要替换的列名
For Each dr As DataRow In DataTables("表a").DataRows
    For Each c As String In cs
        For Each cdr As DataRow In DataTables("表B").Select("第一列 is not null")
            If dr(c).Contains(cdr("第一列")) Then
                dr(c) = dr(c).replace(cdr("第一列"), cdr("第二列"))
                Exit For
            End If
        Next
    Next
Next

有点色

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/21 17:37:00 [显示全部帖子]

Dim cs() As String = {"前号码", "后号码"} '表A要替换的列名
For Each dr As DataRow In DataTables("表a").DataRows
    For Each c As String In cs
        For Each cdr As DataRow In DataTables("表B").Select("zl号码 is not null")
            If dr(c).Contains(cdr("zl号码")) Then
                dr(c) = dr(c).replace(cdr("zl号码"), cdr("jlt号码"))
                Exit For
            End If
        Next
    Next
Next

下一主题 >> << 上一主题

主题：[求助]批量查找替换