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


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

主题:[原创]关联数据

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


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

问题我是用截图来表示,我想做到的目标是通过图一的数据,把图二的空格直接跳出内容。这些数据我都做了下拉选项的。 而且如果图一中的色号编号出现了“非常规”这几个字的话,后面图二就不默认跳内容,可以让录入员手动录入信息。
此主题相关图片如下:图一.png
按此在新窗口浏览图片

此主题相关图片如下:图二.png
按此在新窗口浏览图片

此主题相关图片如下:图三.png
按此在新窗口浏览图片

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


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

请做一个实例发上来测试。

 

 


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


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

If e.DataCol.Name = "产品型号" Then '如果内容发生变动的是品名列
    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("产品名称")
        End If
    End If
End If

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


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

 

没看懂你的意思,请做一个具体的实例发上来测试。

 

 


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


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


If e.DataCol.Name = "产品型号" Then '如果内容发生变动的是品名列
    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

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


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

我不知道做个示例是什么意思啊。 我就是不知道怎么做。 所以我才提问的

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


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


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


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

'根椐产品编呈显示产品名称 If e.DataCol.Name = "产品型号" Then '如果内容发生变动的是品名列 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
图片点击可在新窗口打开查看此主题相关图片如下:图六.png
图片点击可在新窗口打开查看

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


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


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


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

你好,大卡们,我把数据库更改了地址,现在想知道如果更改地址,不然我连开发版都进不去。
图片点击可在新窗口打开查看此主题相关图片如下:图9.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:图10.png
图片点击可在新窗口打开查看

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