以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口设计问题求教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=23242)
--  作者：chinajimmy2008
--  发布时间：2012/9/6 16:08:00
--  窗口设计问题求教

如何在窗口菜单中设计：在一个文本框中输入想查找的内容，同时在同一窗口显示查找出来和输入内容相匹配的全部内容啊。比如输入某两个字符，在窗口显示出含有这两个字符的数据库中的全部记录，如可能的话，可不可以进行排序处理。谢谢

 
--  作者：lin_hailun
--  发布时间：2012/9/6 16:36:00
--  
可以。

说到底，就是遍历所有表，所有行，所有列，比较，取出数据。

但，这样做的意义是什么？
--  作者：chinajimmy2008
--  发布时间：2012/9/6 17:58:00
--  

将同一产品所有相关信息资料放在一起好对比。挑出最好的

 
--  作者：lin_hailun
--  发布时间：2012/9/7 12:25:00
--  
以下是引用chinajimmy2008在2012-9-6 17:58:00的发言：

将同一产品所有相关信息资料放在一起好对比。挑出最好的

 

数据是可以取出来，帮你简单写一个。

Dim searchStr As String = "j"
searchStr = "*" & searchStr & "*"

Dim flag As Boolean = False
Dim data As String = ""
For Each dt As DataTable In DataTables
    For Each dr As DataRow In dt.DataRows
        Dim temp As String = ""
        For Each dc As DataCol In dt.DataCols
            temp += dc.Name & ":" & dr(dc.Name) & " | "
            If dr(dc.Name) Like searchStr Then   \'匹配
                flag = True
            End If
        Next
        If flag = True Then
            data += temp.Trim(" ", "|") & vbcrlf
            flag = False
        End If
    Next
Next
MessageBox.Show(data)

上面代码，简单列出匹配的行数据。
[此贴子已经被作者于2012-9-7 12:25:48编辑过]