主题：没有易表中"全表查找/替换"功能,不方便

Dim s1 As String = "查找内容"

Dim s2 As String = "替换内容"

For Each c As Col In CurrentTable.Cols

if c.IsDate then continue for

      For  Each r As Row In CurrentTable.Rows

             If r(c.Name) = s1  Then r(c.Name) = s2

      Next

Next