Foxtable(狐表)用户栏目专家坐堂 → [原创]关联数据


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

主题:[原创]关联数据

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


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


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


加好友 发短信
等级:幼狐 帖子:70 积分:460 威望:0 精华:0 注册:2019/5/13 17:09:00
  发帖心情 Post By:2019/7/8 11:59:00 [只看该作者]

请问同表关联,怎么做?输入A自动带出其他单元格对应数据

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


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

不需要做关联都可以,使用目录树即可:http://www.foxtable.com/webhelp/topics/2053.htm

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


加好友 发短信
等级:幼狐 帖子:70 积分:460 威望:0 精华:0 注册:2019/5/13 17:09:00
  发帖心情 Post By:2019/7/8 12:24:00 [只看该作者]

但是我们希望做到的是,输入A单元格,自动带出来其他剩下的相对应的单元格信息。

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


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

5楼的用法就是的

If e.DataCol.Name = "产品型号" Then '如果内容发生变动的是品名列
    If e.DataRow("色号编号") <> "非常规"
        If e.DataRow("产品型号") Is Nothing Then '如果新值是空白,也就是品名列的内容为空
            e.DataRow("产品名称") = Nothing '那么清空此行单价列的内容
        Else
            Dim dr As DataRow
            '否则在产品表查找同名的产品行,将找到的行赋值给变量dr
            dr = DataTables("订单表下拉选项").Find("[产品型号] = '" & e.DataRow("产品型号") & "'")
            If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
                e.DataRow("产品名称") = dr("产品名称")
                e.DataRow("色号编号") = dr("色号编号")
                e.DataRow("外壳工艺颜色") = dr("外壳工艺颜色")
                e.DataRow("中框工艺颜色") = dr("中框工艺颜色")
                e.DataRow("灯光模式颜色") = dr("灯光模式颜色")
                e.DataRow("线材颜色") = dr("线材颜色")
                e.DataRow("插头外壳颜色") = dr("插头外壳颜色")
                e.DataRow("钥匙扣规格颜色") = dr("钥匙扣规格颜色")
                e.DataRow("插头输入") = dr("插头输入")
                e.DataRow("插头输出") = dr("插头输出")
            End If
        End If
    End If
End If


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


加好友 发短信
等级:幼狐 帖子:70 积分:460 威望:0 精华:0 注册:2019/5/13 17:09:00
  发帖心情 Post By:2019/7/8 14:56:00 [只看该作者]

可是我写了, 运作的时候会出现以下错误代码:
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2019.6.9.1
错误所在事件:表,ORDER_TRACKING,DataColChanged
详细错误信息:
调用的目标发生了异常。
列“色号编号”不属于表 ORDER_TRACKING。

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/8 15:18:00 [只看该作者]

提示很明显,表 ORDER_TRACKING没有“色号编号”这个列名,请确认有这个名称的列

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


加好友 发短信
等级:幼狐 帖子:70 积分:460 威望:0 精华:0 注册:2019/5/13 17:09:00
  发帖心情 Post By:2019/7/8 15:52:00 [只看该作者]



其实我的目标是, 产品型号,自己带出产品名称。 然后色号编号,自动带出外壳工艺颜色这样。 两个是分开逻辑的

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/8 16:00:00 [只看该作者]

那就按照同样的逻辑,分开查询,分开赋值即可

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


加好友 发短信
等级:幼狐 帖子:70 积分:460 威望:0 精华:0 注册:2019/5/13 17:09:00
  发帖心情 Post By:2019/7/8 17:46:00 [只看该作者]

'根椐产品编呈显示产品名称
If e.DataCol.Name = "产品型号" Then '如果内容发生变动的是品名列
    If e.DataRow("标准色号") <> "非常规"
        If e.DataRow("产品型号") Is Nothing Then '如果新值是空白,也就是品名列的内容为空
            e.DataRow("产品名称") = Nothing '那么清空此行单价列的内容
        Else
            Dim dr As DataRow
            '否则在产品表查找同名的产品行,将找到的行赋值给变量dr
            dr = DataTables("产品对应表格").Find("[产品型号] = '" & e.DataRow("产品型号") & "'")
            If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
                e.DataRow("产品名称") = dr("产品名称")
                e.DataRow("标准色号") = dr("配套色号")
                e.DataRow("外壳工艺颜色") = dr("外壳工艺颜色")
                e.DataRow("中框工艺颜色") = dr("中框工艺颜色")
                e.DataRow("灯光模式颜色") = dr("灯光模式颜色")
                e.DataRow("线材颜色") = dr("线材颜色")
                e.DataRow("插头外壳颜色") = dr("手机外壳颜色")
                e.DataRow("钥匙扣规格颜色") = dr("钥匙扣规格颜色")
                e.DataRow("插头输入") = dr("插头类型")
                e.DataRow("插头输出") = dr("插头类型")
            End If
        End If
    End If
End If

 

同时查询,需要怎么更改?


 回到顶部
总数 62 上一页 1 2 3 4 5 6 7 下一页