主题：[原创]关联数据

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


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


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

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

 

 

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

 

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

 

 

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

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

参考

 

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

 

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

 

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

 

'根椐产品编呈显示产品名称 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

参考

 

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

 

你好，大卡们，我把数据库更改了地址，现在想知道如果更改地址，不然我连开发版都进不去。
此主题相关图片如下：图9.png


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