Foxtable(狐表)用户栏目专家坐堂 → 遍历问题


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

主题:遍历问题

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


加好友 发短信
等级:一尾狐 帖子:452 积分:3015 威望:0 精华:0 注册:2014/4/23 17:12:00
遍历问题  发帖心情 Post By:2015/3/12 15:05:00 [只看该作者]

有表A和表B,共同字段为产品名称和规格。
现要遍历表A,如果表A中的产品名称在表B中没有对应的记录,那么在表B中新增一行,产品名称和规格都取自表A中的当前记录的值。
需要分别遍历表A和表B么?请问代码应该如何写?

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


加好友 发短信
等级:四尾狐 帖子:996 积分:6630 威望:0 精华:0 注册:2014/10/20 11:06:00
  发帖心情 Post By:2015/3/12 15:06:00 [只看该作者]

提问的人上来就是求代码的,狐表工作人员真不容易呀

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


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


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


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


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/3/12 15:13:00 [只看该作者]


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


加好友 发短信
等级:一尾狐 帖子:452 积分:3015 威望:0 精华:0 注册:2014/4/23 17:12:00
  发帖心情 Post By:2015/3/12 15:27:00 [只看该作者]

是不是遍历一次就可以?
For Each dr As DataRow In DataTables("表A").Select("产品名称 is not null")
    Dim fdr As DataRow = DataTables("表B").Find("产品名称 = '" & dr("产品名称") & "'")
    If fdr Is Nothing Then
        fdr = DataTables("表B").AddNew
        fdr("产品名称") = dr("产品名称")
        fdr("规格") = dr("规格")
    End If
Next

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


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

 是的。

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


加好友 发短信
等级:一尾狐 帖子:452 积分:3015 威望:0 精华:0 注册:2014/4/23 17:12:00
  发帖心情 Post By:2015/3/12 15:32:00 [只看该作者]

感谢!!

 回到顶部