主题：订单明细快速输入

代码

If e.DataCol.Name = "第一列" Then '发生变化的是产品编号吗?
    '在产品表找出该产品
    Dim drs As List(Of DataRow) = DataTables("表A").Select("第一列 = '" & e.DataRow("第一列") & "'" )
    If drs.Count > 0 Then
        e.DataRow("第二列")= drs(0)("第二列")
        e.DataRow("第三列")= drs(0)("第三列")
        e.DataRow("第三列")= drs(0)("第三列")
        SystemReady = False
        For i As Integer = 1 To drs.Count - 1
            Dim dr As DataRow = e.DataTable.AddNew
            dr("第一列") = drs(i)("第一列")
            dr("第二列")= drs(i)("第二列")
            dr("第三列")= drs(i)("第三列")
            dr("第三列")= drs(i)("第三列")
        Next
        SystemReady = True
    End If
End If