主题：[求助]第一次做窗口，有几个问题不明白，请教前辈(已解决)

Dim txt As String = e.Form.controls("textbox1").text
Dim dr As DataRow
txt = "'%" & txt & "%'"
dr = DataTables("小包发货单").Find(" [订单子编号] like " & txt   )
If dr IsNot Nothing Then
    Dim wz As Integer = Tables("查询_Table1").FindRow(dr)
    If wz >= 0 Then
        Tables("查询_Table1").Position = wz
    Else If txt = "" OrElse dr Is Nothing Then
        Tables("查询_Table1").Filter = " 1 = 2 "
    End If
End If

代码不起作用撒。。帮我看看。。