易表在线答疑技术与交流用户社区 → 能否实现此功能?


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

主题:能否实现此功能?

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


加好友 发短信
等级:超级版主 帖子:2320 积分:350 威望:0 精华:0 注册:2006/8/11 10:55:00
  发帖心情 Post By:2006/9/20 19:40:00 [显示全部帖子]

canwrite估计不行的,加一标记列试试.

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


加好友 发短信
等级:超级版主 帖子:2320 积分:350 威望:0 精华:0 注册:2006/8/11 10:55:00
  发帖心情 Post By:2006/9/20 23:28:00 [显示全部帖子]

也想不出好的办法,不妨这样试试(没有测试过,供参考):
加一列:编辑用户。
行预处理公式LockRow(Row)
表验证公式:LockAll()
行验证公式:if([编辑用户]<>UserName,True,MsgBox("本条数据还没有保存,请按 确定 后换行!",0))

录入窗口编辑公式:
if([编辑用户]="",SetCellTextGridName,Row,"编辑用户",UserName) And Save() And UnlockRow(row),
if([编辑用户]=UserName,UnlockRow(row),
MsgBox("本条数据其他人正在编辑,请稍候再试!",0)))

录入窗口确定公式:
if([编辑用户]=UserName,SetCellTextGridName,Row,"编辑用户","") andLockRow(Row)And Save() ,True )

以上公式,如数据量大时,估计会由于有存盘而比较慢的.


 回到顶部