遍历问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2953人关注过本帖树形打印复制链接主题：遍历问题

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么？请问代码应该如何写？

lesliecheung912

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

lesliecheung912

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

等级：一尾狐帖子：452 积分：3015 威望：0 精华：0 注册：2014/4/23 17:12:00

Post By：2015/3/12 15:32:00 [显示全部帖子]

感谢！！

主题：遍历问题