主题：求助：窗体加载后运行代码提示Base-64 字符串中的无效字符？ 关闭后数据能够正确解密，求解如何取消这个错误提示！

求助：窗体加载后运行代码提示Base-64 字符串中的无效字符？ 关闭后数据能够正确解密，求解如何取消这个错误提示！

代码如下：

Dim r0 As Row = Tables("收发文基础信息").Current
If r0 IsNot Nothing Then             '若当前表有数据则进行解密
    For Each r As Row In Tables("收发文基础信息").Rows
        For Each c As Col In Tables("收发文基础信息").Cols
            If c.name<> "_Identify" AndAlso c.name <> "_Locked" AndAlso c.name <> "_SortKey" AndAlso r.IsNull(c.name)=False AndAlso c.name <> "是否处理" AndAlso c.name <> "文件日期" AndAlso c.name <> "流水日期" Then
                r(c.name) = DecryptText(r(c.name),"a23","bb2")
            End If
        Next
    Next
End If

有逻辑列 数值列哦 加密的时候逻辑列 和日期咧都被排除了 不然提示报错

现在是不报错了 却提示楼上错误

继续求解！

项目目前还是正常运行的

楼上的代码求纠正 谢谢！

1、加密和解密的key必须相同

2、列的长度必须够，避免加密后的字符串被自动截短

3、你要判断一下空值，如果是空值，没有必要解密，空值解密会出错。