以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  跨表引用时为何出现如下提示？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72366)
--  作者：hnpykfq123
--  发布时间：2015/7/29 10:50:00
--  跨表引用时为何出现如下提示？
当进行跨表引用时为何出现如下提示
Exception has been thrown by the target of an invocation.
Conversion from string "产品名称=\'PSD1\'" to type \'Long\' is not valid.
Input string was not in a correct format.
--  作者：大红袍
--  发布时间：2015/7/29 10:51:00
--  
贴出所写代码。
--  作者：hnpykfq123
--  发布时间：2015/7/29 10:58:00
--  代码如下：
Select Case e.DataCol.name
Case "产品名称","型号","规格"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
If dr.Isnull("产品名称") OrElse dr.Isnull("型号") OrElse dr.Isnull("规格") Then
dr("产品单价") = Nothing
Else
Dim filter As String
filter = "产品名称=\'" &dr("产品名称") &"\'" And"型号=\'" &dr("型号") &"\'" and"规格=\'" &dr("规格") &"\'" 
pr =DataTables("产品表").find(filter)
If pr IsNot Nothing Then
dr("产品单价") = pr("产品单价")
End If
End If
End Select
--  作者：大红袍
--  发布时间：2015/7/29 11:01:00
--  
Select Case e.DataCol.name
    Case "产品名称","型号","规格"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.Isnull("产品名称") OrElse dr.Isnull("型号") OrElse dr.Isnull("规格") Then
            dr("产品单价") = Nothing
        Else
            Dim filter As String
            filter = "产品名称=\'" & dr("产品名称") & "\' And 型号=\'" & dr("型号") & "\' And 规格=\'" &dr("规格") &"\'"
            pr =DataTables("产品表").find(filter)
            If pr IsNot Nothing Then
                dr("产品单价") = pr("产品单价")
            End If
        End If
End Select
--  作者：hnpykfq123
--  发布时间：2015/7/29 11:11:00
--  测试成功，十分感谢！
测试成功，十分感谢！