主题：窗口设计问题求教

可以。

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

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

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

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)

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