以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  跨表引用问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=26064)
--  作者：秦胜雄
--  发布时间：2012/11/23 14:18:00
--  跨表引用问题

Select Case e.DataCol.name
    Case "姓名"
        Dim dr As DataRow = DataTables("订单明细").Find("[规格] = \'" & e.DataRow("规格") & "\' And 管制号 = \'" & e.DataRow("管制号") & "\'")
        dr("车床") = e.DataRow("姓名")
        dr("车日") = Date.NOW
End Select

同一客户（管制号相同），规格、数量相同，分两行下单，在车床表输入姓名时，明细表只显示在一行，另一行为空白，请指教，谢谢！！！
--  作者：lin_hailun
--  发布时间：2012/11/23 14:47:00
--  
 

Select Case e.DataCol.name
    Case "姓名"
        Dim drs As List(Of DataRow) = DataTables("订单明细").Select("[规格] = \'" & e.DataRow("规格") & "\' And 管制号 = \'" & e.DataRow("管制号") & "\'")

        For Each dr As DataRow In drs

            dr("车床") = e.DataRow("姓名")
            dr("车日") = Date.NOW

        Next
End Select
--  作者：秦胜雄
--  发布时间：2012/11/23 15:16:00
--  
谢谢！！！，如是一人加工没问题，要是不同姓名加工就不显示另一个人了，再帮帮忙，谢谢！！！
--  作者：lin_hailun
--  发布时间：2012/11/23 16:07:00
--  

这样试试。虽然不知道你的意思……


Select Case e.DataCol.name
    Case "姓名"
        Dim drs As List(Of DataRow) = DataTables("订单明细").Select("[规格] = \'" & e.DataRow("规格") & "\' And 管制号 = \'" & e.DataRow("管制号") & "\'")

        For Each dr As DataRow In drs

            If dr("车床") <> "" Then dr("车床") = e.DataRow("姓名")
            If dr("车日") <> "" Then dr("车日") = Date.NOW

        Next
End Select
--  作者：秦胜雄
--  发布时间：2012/11/23 16:36:00
--  
4楼报错，就用2楼好了，客户、规格相同，分开加工的可能性很小，衷心感谢！！！