专家坐堂-[原创]关联数据Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [原创]关联数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135032)

--  作者：ivanliao
--  发布时间：2019/5/15 15:23:00
--  [原创]关联数据
问题我是用截图来表示，我想做到的目标是通过图一的数据，把图二的空格直接跳出内容。这些数据我都做了下拉选项的。而且如果图一中的色号编号出现了“非常规”这几个字的话，后面图二就不默认跳内容，可以让录入员手动录入信息。
此主题相关图片如下：图一.png

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

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

--  作者：有点甜
--  发布时间：2019/5/15 16:37:00
--

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

--  作者：ivanliao
--  发布时间：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

--  作者：有点甜
--  发布时间：2019/5/15 17:05:00
--

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

--  作者：ivanliao
--  发布时间：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
--  发布时间：2019/5/15 18:24:00
--
我不知道做个示例是什么意思啊。我就是不知道怎么做。所以我才提问的

--  作者：有点甜
--  发布时间：2019/5/16 9:58:00
--

参考

http://www.foxtable.com/webhelp/scr/1534.htm

http://www.foxtable.com/webhelp/scr/2116.htm

http://www.foxtable.com/webhelp/scr/2465.htm

--  作者：ivanliao
--  发布时间：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

--  作者：有点甜
--  发布时间：2019/5/16 19:36:00
--

参考

http://www.foxtable.com/webhelp/scr/1284.htm

--  作者：ivanliao
--  发布时间：2019/5/23 16:28:00
--
你好，大卡们，我把数据库更改了地址，现在想知道如果更改地址，不然我连开发版都进不去。
此主题相关图片如下：图9.png

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