有两个表货品和货品目录表结构一样？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 有两个表货品和货品目录表结构一样？

共有3327人关注过本帖树形打印复制链接主题：有两个表货品和货品目录表结构一样？

jswjyjf

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

加好友

发短信

等级：九尾狐帖子：2552 积分：20057 威望：0 精华：0 注册：2012/5/19 11:57:00

有两个表货品和货品目录表结构一样？ 发帖心情

Post By：2020/3/30 20:18:00 [显示全部帖子]

有两个表货品和货品目录表结构一样？货品表的颜色尺码都是多值字段，现在要根据货品表生成细化的货品目录表如图
图片点击可在新窗口打开查看

此主题相关图片如下：1.png

此主题相关图片如下：2.png

[此贴子已经被作者于2020/3/30 20:19:15编辑过]

jswjyjf

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

加好友

发短信

等级：九尾狐帖子：2552 积分：20057 威望：0 精华：0 注册：2012/5/19 11:57:00

Post By：2020/3/30 20:40:00 [显示全部帖子]

Dim dr As Row

dr = Tables("货品").current

Dim nms() As String = dr("颜色").Split(",")

Dim nms2() As String = dr("尺码").Split(",")

For Each name As String In Nms

For Each name2 As String In Nms2

Dim r As Row = Tables("货品目录表").AddNew()

r("货品名称")=dr("货品名称")

r("颜色")=name

r("尺码")=name2

可以了，不过代码是否可以优化，麻烦帮我看一下如果已经存在相同的颜色尺码货号就要跳过去

[此贴子已经被作者于2020/3/30 20:41:26编辑过]

jswjyjf

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

加好友

发短信

等级：九尾狐帖子：2552 积分：20057 威望：0 精华：0 注册：2012/5/19 11:57:00

Post By：2020/3/30 21:03:00 [显示全部帖子]

Dim dr As Row

dr = Tables("货品").current

DataTables("货品目录表").SQLDeleteFor("货号='" & dr("货号") & "'")

DataTables("货品目录表").RemoveFor("货号='" & dr("货号") & "'")

Dim nms() As String = dr("颜色").Split(",")

Dim nms2() As String = dr("尺码").Split(",")

For Each name As String In Nms

For Each name2 As String In Nms2

Dim r As Row = Tables("货品目录表").AddNew()

r("货号")=dr("货号")

r("货品名称")=dr("货品名称")

r("颜色")=name

r("尺码")=name2

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

主题：有两个表 货品和货品目录表 结构一样？

主题：有两个表货品和货品目录表结构一样？