主题：3次输入错误后，保存项目数据并关闭项目？

认认真真测试

下载信息  [文件大小：288.0 KB  下载次数：2]

点击浏览该文件:锁项目.table

把你设置的值，保存在表格或者保存在某个地方，然后读取过来比较

http://www.foxtable.com/webhelp/scr/1544.htm

1、不理解你的问题【2个以上用户同时对一个表加密时，其中一个加密对话框会失效】，如何测试？需要做到什么效果？

2、你解密成功的时候，记录输入的密码

SaveConfigValue(user.name & "密码", pwd)

当需要弹出解密之前，先获取值，和表格数据对比，如果相同，则不需要弹出

Dim fdr = DataTables("密码记录表").find("用户名 ='" & User.Name & "' and 加密日期 <= #" & Date.now & "#", "加密日期 desc")
Dim pwd As String = GetConfigValue(user.name & "密码", "")
If pwd <> fdr("密码") Then

    '弹出解密窗口

End If

1、需要的时候再解密啊。比如切换到表A，就需要解密啊。

2、你拷贝两份项目到不同的文件夹下再打开测试。

加密按钮

Dim t As Date = Date.Now
Dim dr As Row = Tables("密码记录表").AddNew()
dr("加密日期") = t
dr("密码") = e.Form.Controls("TextBox1").Text
MainTable = Tables("表A")
e.Form.Close

无法理解你要做什么。

加密和解密窗口怎么可能合并在一起。

解密窗口是限制能否操作某些功能的。需要限制的时候就弹出要求输入密码。

加密窗口是设置密码的。

请先理清逻辑，看懂代码再继续啊。