Foxtable(狐表)用户栏目专家坐堂 → [求助]列值对比,新增


  共有3473人关注过本帖树形打印复制链接

主题:[求助]列值对比,新增

帅哥哟,离线,有人找我吗?
湛江智
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:812 积分:6676 威望:0 精华:0 注册:2014/11/26 12:32:00
[求助]列值对比,新增  发帖心情 Post By:2017/8/4 9:09:00 [只看该作者]

如何实现表B的列:项目类型,如果表A的列TreeFullPath没有,就新增到表A的列TreeFullPath
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:列值.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/4 9:36:00 [只看该作者]

For Each dr As DataRow In DataTables("表A").DataRows
    Dim fdr As DataRow = DataTables("表B").find("项目类型 = '" & dr("TreeFullPath") & "'")
    If fdr Is Nothing Then
        fdr = DataTables("表B").addnew
        fdr("项目类型") = dr("TreeFullPath")
    End If
Next

 回到顶部
帅哥哟,离线,有人找我吗?
湛江智
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:812 积分:6676 威望:0 精华:0 注册:2014/11/26 12:32:00
  发帖心情 Post By:2017/8/4 10:21:00 [只看该作者]

ok,非常感谢了图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
湛江智
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:812 积分:6676 威望:0 精华:0 注册:2014/11/26 12:32:00
回复:(有点甜)For Each dr As DataRow In DataTabl...  发帖心情 Post By:2019/2/25 19:26:00 [只看该作者]


[此贴子已经被作者于2019/2/25 19:27:27编辑过]

 回到顶部