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

我要在出单单号的textbox里输入“进出单表”中“进单单号”的任一个，然后定位到该行。

我是在textbox的Enter下面写下面的代码，但是不能用。

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

此主题相关图片如下：22.png