Foxtable(狐表)用户栏目专家坐堂 → [求助]窗口录入权限


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

主题:[求助]窗口录入权限

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


加好友 发短信
等级:四尾狐 帖子:812 积分:6676 威望:0 精华:0 注册:2014/11/26 12:32:00
[求助]窗口录入权限  发帖心情 Post By:2018/11/16 16:06:00 [只看该作者]

打开窗口,表A 第一列 已<layer highlight="term-3" class="searchwp-term searchwp-highlight-searchwp-highlighting">存在</layer>数据,只有经理才能<layer highlight="term-4" class="searchwp-term searchwp-highlight-searchwp-highlighting">修改</layer>;表B 第二列 为空时,其他用户可以录入,保存后,就只有经理才能<layer highlight="term-4" class="searchwp-term searchwp-highlight-searchwp-highlighting">修改</layer>
代码怎么写,求助

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/16 16:12:00 [只看该作者]


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


加好友 发短信
等级:四尾狐 帖子:812 积分:6676 威望:0 精华:0 注册:2014/11/26 12:32:00
  发帖心情 Post By:2018/11/16 17:21:00 [只看该作者]

这个看过,不满足想要的效果。想实现其他用户录入后,再打开窗口后,之前录入的不能修改,没录入的还可以录入
[此贴子已经被作者于2018/11/16 17:21:37编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/16 17:44:00 [只看该作者]

以下是引用湛江智在2018/11/16 17:21:00的发言:
这个看过,不满足想要的效果。想实现其他用户录入后,再打开窗口后,之前录入的不能修改,没录入的还可以录入
[此贴子已经被作者于2018/11/16 17:21:37编辑过]

 

你可以判断行的状态,如果是新增行,可以修改

 

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

 


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


加好友 发短信
等级:四尾狐 帖子:812 积分:6676 威望:0 精华:0 注册:2014/11/26 12:32:00
回复:(有点甜)以下是引用湛江智在2018/11/16 17:21...  发帖心情 Post By:2018/11/16 22:59:00 [只看该作者]

 下面这样,有缺陷嘛?

Dim r As Row = Tables("表A").Current
If  r.DataRow.RowState = DataRowState.Unchanged Then
    e.Form.Controls("TextBox1").ReadOnly = BooleanEnum.False
Else
    e.Form.Controls("TextBox1").ReadOnly = BooleanEnum.True
End If

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


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/11/16 23:12:00 [只看该作者]

还是先去看看编程基础吧。基本的语法都还不会

Dim r As Row = Tables("表A").Current
If  r.DataRow.RowState = DataRowState.Unchanged Then
    e.Form.Controls("TextBox1").ReadOnly = BooleanEnum.True
Else
    e.Form.Controls("TextBox1").ReadOnly = BooleanEnum.False
End If

 回到顶部