EncryptText加密后得到的数据，怎么在窗口中直接采用tables表组件得到解密后的数据呢？
此主题相关图片如下：11.png
经过代码操作实现下图
代码如下：（代码有没有办法简化，实现对这个表的所有字段自动加密呢，而不是这样我一个个字段都单独写加密代码）
For i As Integer = 0 To Vals.Count - 1
Dim dr As DataRow = DataTables("告知内容").AddNew()
dr("信息时间") =Date.Now
Dim Val1 As String=EncryptText(Vals(i),"a23","op#")
dr("姓名") = Val1
Dim Val2 As String=EncryptText(e.DataRow("信息内容"),"a23","op#")
dr("信息内容")=Val2
Dim Val3 As String=EncryptText("否","a23","op#")
dr("是否告知")= Val3
Dim Val4 As String=EncryptText(e.DataRow("发送对象"),"a23","op#")
dr("发送对象")= Val4
Dim Val5 As String=EncryptText(e.DataRow("发送人员"),"a23","op#")
dr("发送人员")= Val5
Dim Val6 As String=EncryptText(e.DataRow("发送平台"),"a23","op#")
dr("发送平台")= Val6
Dim Val7 As String=EncryptText(e.DataRow("信息类别"),"a23","op#")
dr("信息类别")= Val7
Dim Val8 As String=EncryptText(e.DataRow("拟发送时间"),"a23","op#")
dr("拟发送时间")= e.DataRow("拟发送时间")
Next
此主题相关图片如下：22.png
在窗口中直接采用 Normal tables表组件得到如图：（怎么实现解密呢？得到加密前的数据呢？）备注：解密操作：Dim Val3 As String = DecryptText(Val2,"a23","op#")
此主题相关图片如下：33.png
[此贴子已经被作者于2019/3/20 15:48:11编辑过]
加好友 
发短信
Post By：2019/3/20 15:32:00 [只看该作者]
