主题：[求助]请问这段代码有没有限制？为啥我原包装复制的帮助里面的例子，却用着用着这功能就坏了用不了了？

[求助]请问这段代码有没有限制？为啥我原包装复制的帮助里面的例子，却用着用着这功能就坏了用不了了？

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'%" & txt & "%'"
    tbl.Filter = "客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
End If

类似的还有这段代码

With CurrentTable
    Dim r As Integer
    r = .FindRow("[公司名称] Like '%湛江%'", .Position + 1, True ) '从当前行的下一行开始查找
    If r >= 0 Then '如果找到的话
        .Position = r '定位到找到的行。
    End If
End With

以前在试用版上用的很流畅，自从用了开发板，我都放弃这段代码了