Foxtable(狐表)用户栏目专家坐堂 → [求助多行联动导入代码


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

主题:[求助多行联动导入代码

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


加好友 发短信
等级:幼狐 帖子:156 积分:1328 威望:0 精华:0 注册:2016/6/21 12:27:00
[求助多行联动导入代码  发帖心情 Post By:2022/7/20 12:59:00 [只看该作者]

求大师指点:
      我在窗口的上表"添加分析_录入主表"里用“勾”列选择多行,并与下表“添加分析_录入明细表”联动后,将上下表里列名为“勾”的选中行导入到主窗口的上下表里,下面的代码是错的,希望能帮我更改一下:
For Each r1 As Row In Tables("添加分析_录入主表").Current("勾")
    If DataTables("添加分析_录入主表").GetComboListString("勾") = True Then
        Dim r2 As Row = Tables("添加分析_分解主表").AddNew()
        r2("系统编号") = r1("工序名称")
        r2("工序名称") = r1("工序名称")
        r2("工序等级") = r1("工序等级")
        r2("设备") = r1("设备")
        r2("部位") = r1("部件名称")
        r2("面线颜色") = r1("面线颜色")
        r2("底线颜色") = r1("底线颜色")
    End If
Next

For Each r1 As Row In Tables("添加分析_录入明细表").Current("勾")
    If DataTables("添加分析_录入明细表").GetComboListString("勾") = True Then
        Dim r2 As Row = Tables("添加分析_分解明细表").AddNew()
        r2("数据名称") = r1("数据名称")
        r2("动作名称") = r1("动作名称")
        r2("人工频率") = r1("人工频率")
        r2("捆扎时间") = r1("捆扎时间")
        r2("设备") = r1("设备")
        r2("计算长度") = r1("计算长度")
    End If
Next


谢谢

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


加好友 发短信
等级:超级版主 帖子:110443 积分:562081 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/7/20 13:37:00 [只看该作者]

For Each r1 As dataRow In DataTables("添加分析_录入主表").select(“勾=true”)
        Dim r2 As Row = Tables("添加分析_分解主表").AddNew()
        r2("系统编号") = r1("工序名称")
        r2("工序名称") = r1("工序名称")
        r2("工序等级") = r1("工序等级")
        r2("设备") = r1("设备")
        r2("部位") = r1("部件名称")
        r2("面线颜色") = r1("面线颜色")
        r2("底线颜色") = r1("底线颜色")
Next

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


加好友 发短信
等级:幼狐 帖子:156 积分:1328 威望:0 精华:0 注册:2016/6/21 12:27:00
  发帖心情 Post By:2022/7/20 13:45:00 [只看该作者]

谢谢

 回到顶部