Foxtable(狐表)用户栏目专家坐堂 → 自动锁行


  共有12963人关注过本帖树形打印复制链接

主题:自动锁行

帅哥哟,离线,有人找我吗?
tungwun
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:423 积分:4243 威望:0 精华:0 注册:2009/5/16 21:42:00
自动锁行  发帖心情 Post By:2011/6/23 11:52:00 [只看该作者]

请问输入完成後如何做到自动锁行? 录入窗口如何做到代码输入?

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/6/23 11:59:00 [只看该作者]

假定某列输入完成后自动锁定,就在DataColChanged事件设置代码:

 

if e.DataCol.Name = "某列" And e.DataRow.IsNull("某列") = False Then

    e.DataRow.Locked = True

End if


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57640 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/6/23 12:02:00 [只看该作者]

If e.Col.Name = "列名" Then   '在这一个列编辑后
    Tables("表名") .Current.Locked = True    '换行后锁定前面输入数据的那一行   
End If


表属性的AfterEdit设置


 回到顶部
帅哥哟,离线,有人找我吗?
fyj0326
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:416 积分:3789 威望:0 精华:0 注册:2009/12/12 17:04:00
  发帖心情 Post By:2011/6/23 13:01:00 [只看该作者]

这个功能好实用啊,不错

 回到顶部