主题：订单明细快速输入

如题  见附件  求助[如何让实现功能 

代码

 

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

这版主绝对给力，我特意半夜来顶一下

是的 甜老师  确实是一位好老师   我就是脑袋笨  但是还是很爱好fox  多亏了甜老师的细心指导   32个赞