Foxtable(狐表)用户栏目专家坐堂 → 关于自动复制行相关问题


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

主题:关于自动复制行相关问题

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


加好友 发短信
等级:幼狐 帖子:134 积分:996 威望:0 精华:0 注册:2018/9/13 16:41:00
  发帖心情 Post By:2018/11/30 13:37:00 [显示全部帖子]

版主您好!  表A逻辑列打钩后自动复制该行到表B,表A打钩的那行除管理员其他用户无法编辑我在项目人事管理里面测试成功了,同样复制到项目加工件管理里面却没有效果,不知道哪里出了问题,现把加工件代码放上请帮我看看哪里出问题了。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:加工件台账项目.txt


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


加好友 发短信
等级:幼狐 帖子:134 积分:996 威望:0 精华:0 注册:2018/9/13 16:41:00
  发帖心情 Post By:2018/11/30 15:31:00 [显示全部帖子]

版主您好!   把DoubleClick事件删除的话 采购部和库管员两个用户就没有权限修改 供应商、采购反馈、库管员、入库确认几列了。

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


加好友 发短信
等级:幼狐 帖子:134 积分:996 威望:0 精华:0 注册:2018/9/13 16:41:00
  发帖心情 Post By:2018/11/30 22:57:00 [显示全部帖子]

版主您好!   开发者和管理员有全部编辑权限,授权表授权了可编辑的列,录入组只能编辑自己增加的行中授权的列。如果把DoubleClick事件删除,采购部和库管员两个用户授权的列无法编辑。现在需要增加入库确认逻辑列,确认后自动复制到表B,然后锁定行库管员无法编辑,但是无效。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:加工件台账.rar


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


加好友 发短信
等级:幼狐 帖子:134 积分:996 威望:0 精华:0 注册:2018/9/13 16:41:00
  发帖心情 Post By:2018/12/1 10:15:00 [显示全部帖子]

版主您好!   用库管员用户进入,在入库确认列打钩后,该行没有锁定,库管员还可以修改。

If User.Name <> "管理员" AndAlso User.Name <> "开发者" Then 
    If e.Row("入库确认") = True  Then
        e.Cancel = True
        Return
    End If
End If

这个代码没有起到作用

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


加好友 发短信
等级:幼狐 帖子:134 积分:996 威望:0 精华:0 注册:2018/9/13 16:41:00
  发帖心情 Post By:2018/12/1 11:58:00 [显示全部帖子]

版主您好!  我找到问题了,把DoubleClick事件里面的代码去掉就可以了。

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


加好友 发短信
等级:幼狐 帖子:134 积分:996 威望:0 精华:0 注册:2018/9/13 16:41:00
  发帖心情 Post By:2018/12/5 14:23:00 [显示全部帖子]

版主您好!  表A逻辑列打钩后自动复制该行到表B,表A打钩的那行去掉钩后就自动删除。使用您给的代码已经成功。但是现在遇到一个问题,无法克隆行了,克隆行变成了移动行。把一下代码删除就可以克隆,请问问题在那里?
     
                If e.DataCol.Name = "表A逻辑列"
    If e.DataRow("表A逻辑列") = True Then
        Dim dr As DataRow = DataTables("表B").AddNew
        For Each dc As DataCol In DataTables("表B").DataCols
            dr(dc.Name) = e.DataRow(dc.Name)
        Next
    Else
        DataTables("表A").deletefor("表A第一列 = '" & e.DataRow("表A第一列") & "'")
    End If
End If

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


加好友 发短信
等级:幼狐 帖子:134 积分:996 威望:0 精华:0 注册:2018/9/13 16:41:00
  发帖心情 Post By:2018/12/5 16:14:00 [显示全部帖子]

版主您好!  按照你的方案二修改了,出现了这个问题,不知道怎么修改了。

图片点击可在新窗口打开查看此主题相关图片如下:001.jpg
图片点击可在新窗口打开查看

 回到顶部
总数 18 上一页 1 2