之前，上传的时候，用户“经理”的密码忘了改了，这回改好了，密码都是“888”
项目属性的MainTableChanging事件代码为：
If e.NewTableName = "询价表2018后" Then
Dim fdr = DataTables("密码记录表").find("用户名 ='" & User.Name & "'", "加密日期 desc")
Dim pwd As String = GetConfigValue(user.name & "密码", "")
If pwd <> fdr("密码") Then
MainTable = Tables("仓管表")
forms("解密窗口").show
End If
End If
已知：用户“经理”并非“密码记录表”中，上次最后一次上锁的用户“小颜”，
求：
现以用户“经理”，进入项目后，首次点击“询价表2018后”的表时，需要输入密码“000”，
接下来，直至项目关闭，都无需再次输入密码，直接进入并打开表“询价表2018后”，
中途，需要临时锁住表“询价表2018后”，则需要点击上方的“快速访问栏”中的“密码锁”，
[此贴子已经被作者于2019/5/10 15:54:26编辑过]
加好友 
发短信
Post By：2019/5/10 15:08:00 [只看该作者]
