with e.Form
if e.sender.text <> "请输入IO" then
Dim dst As WinForm.DataList = .Controls("DataList1")
Dim txb1 As WinForm.TextBox = .Controls("TextBox1")
dst.RowFilter = "[IO] Like '*" & txb1.text & "*' "
end if
end with
各位老大,上面的一段代码是我从华海转换而来,我想将这句代码 dst.RowFilter = "[IO] Like '*" & txb1.text & "*' "换一下,本来我只能输入[IO]字段的数据才能查找,现在我在"TEXTBOX1"中输入任何我要的数据都能查找出来.(相当于模拟查找).