主题：全文搜索

 ‘下面代码遍历所有表格，具体需求自己增加

Dim dt As DataTable
Dim rw As DataRow
Dim cl As DataCol
For Each dt In DataTables
    For Each rw In dt.DataRows
        For Each cl In dt.DataCols
            Output.Show(rw(cl.Name))
        Next
    Next
Next