主题：[求助]窗口Tables 空间显示重复值

If e.DataCol.Name = "订单号" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("订单号 = '" & e.NewValue & "'")
    If dr IsNot Nothing Then
       Dim wz As Integer = e.DataTable.FindRow(dr)
       If wz >= 0 Then
         Tables("订单").Position = wz                     '获得焦点位置
     End If

    End If
End If