| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 遍历问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65259) |
| -- 作者：lesliecheung912 -- 发布时间：2015/3/12 15:05:00 -- 遍历问题 有表A和表B，共同字段为产品名称和规格。 现要遍历表A，如果表A中的产品名称在表B中没有对应的记录，那么在表B中新增一行，产品名称和规格都取自表A中的当前记录的值。 需要分别遍历表A和表B么？请问代码应该如何写？
|
| -- 作者：jialihaha -- 发布时间：2015/3/12 15:06:00 -- 提问的人上来就是求代码的，狐表工作人员真不容易呀 |
| -- 作者：有点甜 -- 发布时间：2015/3/12 15:11:00 -- 参考 http://www.foxtable.com/help/topics/2490.htm
|
| -- 作者：有点甜 -- 发布时间：2015/3/12 15:13:00 -- http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=64573&skin=0
|
| -- 作者：Bin -- 发布时间：2015/3/12 15:13:00 -- 是的,要互相遍历 |
| -- 作者：lesliecheung912 -- 发布时间：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 |
| -- 作者：有点甜 -- 发布时间：2015/3/12 15:30:00 -- 是的。 |
| -- 作者：lesliecheung912 -- 发布时间：2015/3/12 15:32:00 -- 感谢！！ |