主题：筛选问题

with e.Form
    if e.sender.text <> "请输入关键字" then
        Dim dst As WinForm.DataList = .Controls("DataList2")
        Dim txb1 As WinForm.TextBox = .Controls("TextBox1")
        dst.RowFilter = "[IO] Like '*" & txb1.text & "*' or [GO NO] Like '*" & txb1.text & "*'or [客户合同号] Like '*" & txb1.text & "*'or [英文款号] Like '*" & txb1.text & "*'or [商标] Like '*" & txb1.text & "*'or [客户名称] Like '*" & txb1.text & "*'or [款号] Like '*" & txb1.text & "*'or [布款号] Like '*" & txb1.text & "*'or [季节号] Like '*" & txb1.text & "*'or [CAPS] Like '*" & txb1.text & "*'"
      
      
    end if
end with

       我用这个代码用于在datalist中筛选的.最近几次更新后,如果我输入要筛选的数据在datalist中没有的话,datalist会出现红叉,正确的却没有问题的.一出现红叉我必须退出窗口,重新打开窗口,非常讨厌.以前一直没有问题,筛选时如果没有相对应的数据只会出来一个对话框,我重新输就可以了.