主题：EncryptText加密后得到的数据，怎么在窗口中直接采用tables表组件得到解密后的数据呢？

做一个解密按钮

For Each dr As Row In Tables("表a").rows
    dr("某列") = DecryptText(dr("某列"),"a23","op#")
    dr("某列") = DecryptText(dr("某列"),"a23","op#")
    dr("某列") = DecryptText(dr("某列"),"a23","op#")
Next

加密

Dim t As Table = Tables("表A")
For Each r As Row In t.Rows
    For Each c As Col In t.Cols
        r(c.name) = EncryptText(r(c.name),"a23","op#")
    Next
Next

解密

Dim t As Table = Tables("表A")
For Each r As Row In t.Rows
    For Each c As Col In t.Cols
        r(c.name) = DecryptText(r(c.name),"a23","op#")
    Next
Next

不可以，加密后，是字符串，无法保存在日期格式的列里面。