主题：窗口设计问题求教

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

 

可以。

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

但，这样做的意义是什么？

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

 

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

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)

上面代码，简单列出匹配的行数据。