主题：筛选问题

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会出现红叉,正确的却没有问题的.一出现红叉我必须退出窗口,重新打开窗口,非常讨厌.以前一直没有问题,筛选时如果没有相对应的数据只会出来一个对话框,我重新输就可以了.

如果出现红叉就不是你的问题的，让老六来搞定.

是的，我有时也出现过这个问题．一直也没找到原因，但我重新做一遍，又好了．

呵呵，做个例子文件上来测试一下看看

   开发者进去,密码888.  面板上的按钮进去都会有这种查询,你可以输一个不存在的数据试一下.

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:跟单系统外部数据.rar

没法测试。

已经改进，下次不会有这个问题了。

还有,狐爸上次我提到动态的列表项目,组合框抖动的问题,你看一下.在面板上打开订单情况,新增一行后你试一下组合框的下拉.

请狐爸看看!

你这些不是动态的列表项目，应该将Enter事件中的代码全部移到窗口的AfterLod事件中，可以避免这个问题。
而且效率更高。