主题：全表查找功能

如何查找到内容，突出显示当前行

Dim s1 As String = "查找内容"

For Each c As Col In CurrentTable.Cols

      For  Each r As Row In CurrentTable.Rows

             If r(c.Name) = s1 Then

突出显示当前行

      Next

Next