关于加密与解密的问题，请指教，谢谢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

数据表A中第二列字符长度太短，加密后数据无法正确保存。

加密那段程序中不能用 CurrentTable 应改为 Tables（"表A")，还要再中间加上一句话

Tables("表A").AddNew()

下载信息 [文件大小：下载次数： ]
点击浏览该文件:test.table

Dim str1 As String = e.Form.Controls("ComboBox1").text

Dim str2 As String = e.Form.Controls("ComboBox2").text

e.Form.Controls("Label3").text = str1 & str2

Tables("表A").Current("第一列") = str1 & str2 ’将输入的值写入到当前行第一列中，否则当前第一列中是空值。

Dim str As String = Tables("表A").Current("第一列")

Dim str3 As String = EncryptText(str,"Sny22#","22501!#")

e.Form.Controls("Label4").text = str3

Tables("表A").Current("第一列") = str1 & str2

Tables("表A").Current("第二列") = str3

e.Form.Controls("Label6").visible = False ’ 点加密不要显示解密后数据，Lable6中存的是上次解密后数据

解密程序中也不能用CurrentTable，改为Tables("表A")

Dim str5 As String = Tables("表A").Current("第二列")

Dim str4 As String = DecryptText(str5,"Sny22#","22501!#")

e.Form.Controls("Label6").text = str4

Tables("表A").Current("第三列") = str4

e.Form.Controls("Label6").visible = True '显示解密后数据

主题：关于加密与解密的问题，请指教，谢谢