主题：[求助]查找并定位代码，

TextChanged事件

Dim dr As DataRow
dr = DataTables("进出单表").Find("[进单单号] like '%" & e.Sender.Text & "%' ")
If dr  IsNot Nothing Then
    Dim wz As Integer = Tables("进出单表").FindRow(dr)
    If wz >= 0 Then
        Tables("订单").Position = wz
    End If
End If