- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 不知道行密码功能能否实现 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=57439)
-- 发布时间：2014/9/24 23:16:00
-- 不知道行密码功能能否实现
下面附件是我的设想，大家打开看下，我是想，每个行都可以通过设置独立密码，使得每次通过输入密码后才可以确定扣减次数，不知道可以实现不
-- 发布时间：2014/9/24 23:51:00
--
加个密码列。隐藏掉。然后就是帮助中有的密码解锁。
-- 发布时间：2014/9/25 7:52:00
--
能在我上面的文件中做一下看看嘛，我试了好久还是不能做到
-- 发布时间：2014/9/25 8:17:00
--
这是最新实现的，智能做到双击行，弹出扣减窗口，但我是想实现扣减窗口有个输入密码栏，只有正确输入该客人的密码才能扣减成功，否则提示密码错误，无法扣减。。。
谁帮忙给个方法，，不胜感激
-- 发布时间：2014/9/25 8:31:00
--
参考帮助http://www.foxtable.com/help/topics/2435.htm
-- 发布时间：2014/9/25 8:38:00
--
If e.col.Name = "某列" Then \'如果编辑的是某列
Dim psd As String
InputValue(psd,"验证","请输入密码") \'输入密码
If psd = "正确的密码" Then \'如果密码正确
e.Table.StartEditing \'强行进入编辑状态
Else
Messagebox.Show("密码错误","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If
就是这段代码搞了半天，他这个是整个这一列的密码都是一样的，我是每一行对应一个客户，每个客户后面有一个密码列，用于记录该客户的密码，需要双击该客户的这一行，弹出的这段代码输入的密码必须是该客户后面记录密码列的内容，才是正确密码，如何做
Dim pwd As String
If InputPassWord(pwd,"提示","请输入密码:") Then
Messagebox.Show("您输入的密码是:" & pwd)
End If
-- 发布时间：2014/9/25 8:42:00
--
亲,只需要稍微变通一下就可以了
If psd = e.row("密码列") Then \'如果密码正确
要学会变通,举一反三
教会1+2 2+1 又不会了, 编程可能出现 几千亿种情况,不可能每种都给你说一遍.
-- 发布时间：2014/9/25 8:44:00
--
e.Cancel = True \'禁止进入编辑状态
If e.Col.Name = "课时" Then \'如果编辑的是某列
Dim psd As String
InputValue(psd,"验证","请输入密码") \'输入密码
If psd = "正确的密码" Then \'如果密码正确
Forms("学员上课").Open()
Else
Messagebox.Show("密码错误","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If
这个是我的代码，，需要输入密码时该客户后面的密码列内容的话弹出“学员上课”窗口
-- 发布时间：2014/9/25 8:45:00
--
谢谢咯。。。新手嘛，脑子转不过弯，批评的是。。。嘿嘿