Foxtable(狐表)用户栏目专家坐堂 → [求助]独占式编辑


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

主题:[求助]独占式编辑

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


加好友 发短信
等级:六尾狐 帖子:1302 积分:10502 威望:0 精华:1 注册:2018/1/20 12:40:00
[求助]独占式编辑  发帖心情 Post By:2018/8/10 9:56:00 [显示全部帖子]

之前的独占式编辑,在  项目afteropenproject 里面加入如下代码,但是由于设置了初始不加载任何数据,所以导致编辑者一栏无法被清楚。
有没有可能打开项目时直接修改数据库的数据呢?
    Dim ts As String() = {"XMZB","XMFP","人员信息表","简历登记表","综合奖惩记录表"}
    For Each T As String In TS
        DataTables(t).ReplaceFor("编辑者",Nothing,"编辑者 = '" & _username & "'")
        DataTables(t).Save()
        'Tables(t).Cols.Remove("编辑者") '移除编辑者列,避免用户直接修改此列
    Next
   

 回到顶部