以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助：窗体加载后运行代码提示Base-64 字符串中的无效字符？ 关闭后数据能够正确解密，求解如何取消这个错误提示！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62511)
--  作者：李孝春
--  发布时间：2015/1/3 14:45:00
--  求助：窗体加载后运行代码提示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

[此贴子已经被作者于2015-1-3 14:45:47编辑过]
--  作者：czy
--  发布时间：2015/1/3 14:51:00
--  
表中有没有逻辑列和数值列？
--  作者：lsy
--  发布时间：2015/1/3 15:04:00
--  
玩完！
只有把项目传到公司，公司帮你修复。
--  作者：李孝春
--  发布时间：2015/1/3 15:09:00
--  回复：（czy）表中有没有逻辑列和数值列？

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

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

继续求解！
--  作者：李孝春
--  发布时间：2015/1/3 15:10:00
--  回复：（lsy）玩完！只有把项目传到公司，公司帮你修复...

项目目前还是正常运行的

楼上的代码求纠正 谢谢！
--  作者：游
--  发布时间：2015/1/3 17:53:00
--  
空值
--  作者：李孝春
--  发布时间：2015/1/3 20:13:00
--  回复：（游）空值
怎么理解???
--  作者：狐狸爸爸
--  发布时间：2015/1/4 11:49:00
--  

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

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

3、你要判断一下空值，如果是空值，没有必要解密，空值解密会出错。
--  作者：李孝春
--  发布时间：2015/1/5 15:36:00
--  回复：（狐狸爸爸）1、加密和解密的key必须相同2、列...
感谢狐狸爸爸
1、KEY是相同的
2、列的长度也是相同的 且是最大255
3、没有存在空值 
继续求解
--  作者：Bin
--  发布时间：2015/1/5 15:42:00
--  
最大255可能都不够,设为备注看看