数据表A中第二列字符长度太短，加密后数据无法正确保存。
加密那段程序中不能用 CurrentTable 应改为 Tables（"表A")，还要再中间加上一句话
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 '显示解密后数据
加好友 
发短信
Post By：2016/3/12 23:48:00 [只看该作者]
