主题：跨表引用问题

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

同一客户（管制号相同），规格、数量相同，分两行下单，在车床表输入姓名时，明细表只显示在一行，另一行为空白，请指教，谢谢！！！

 

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

谢谢！！！，如是一人加工没问题，要是不同姓名加工就不显示另一个人了，再帮帮忙，谢谢！！！

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

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

4楼报错，就用2楼好了，客户、规格相同，分开加工的可能性很小，衷心感谢！！！