共5 条记录, 每页显示 10 条, 页签: [1]

标题：查找代码

1楼

blackzhu 发表于：2009/1/21 15:31:00

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"中输入任何我要的数据都能查找出来.(相当于模拟查找).

2楼

菜鸟foxtable 发表于：2009/1/21 15:53:00

dst.RowFilter = "[IO] Like '*" & txb1.text & "*' "
这一句本来就限定了查找数据的列为IO

3楼

blackzhu 发表于：2009/1/21 15:54:00

以下是引用菜鸟foxtable在2009-1-21 15:53:00的发言：
dst.RowFilter = "[IO] Like '*" & txb1.text & "*' "
这一句本来就限定了查找数据的列为IO

就是我想不限定IO,用一个通配符解决.

4楼

blackzhu 发表于：2009/1/21 17:15:00

没有人帮忙吗?

5楼

程兴刚 发表于：2009/1/22 5:59:00

以下是引用blackzhu在2009-1-21 17:15:00的发言：
没有人帮忙吗?

不是不想帮您，只是研究不够，道行不够深！

如果要在全表查找，不限定列的话，应该能通过字符串组合的方式来生成查询条件值公式，涉及应用到当前列名称，具体细节没有研究，或者用for......next循环筛选所有列，理论上应该能够实现！

共5 条记录, 每页显示 10 条, 页签: [1]