Foxtable(狐表)用户栏目专家坐堂 → 关于DataColChanging的设置


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

主题:关于DataColChanging的设置

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


加好友 发短信
等级:三尾狐 帖子:660 积分:3965 威望:0 精华:0 注册:2014/3/16 20:34:00
  发帖心情 Post By:2014/4/23 16:30:00 [只看该作者]


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

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


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

回复51楼,新建按钮加入代码。

 

With Tables("个案申请")
    If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改
        Tables("个案申请").AddNew()
        Vars("编辑器校验")=0
    End If
End With


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


加好友 发短信
等级:三尾狐 帖子:660 积分:3965 威望:0 精华:0 注册:2014/3/16 20:34:00
  发帖心情 Post By:2014/4/23 17:02:00 [只看该作者]

老师,最近辛苦,了,已经可以了谢谢~~~


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


加好友 发短信
等级:三尾狐 帖子:660 积分:3965 威望:0 精华:0 注册:2014/3/16 20:34:00
  发帖心情 Post By:2014/4/23 17:07:00 [只看该作者]

下面还有一个问题,想问问,就是分区人员保存了文件,审核人登陆,是能删除它的文件的;;这样可能会造成误删的情况

 

现在我设置的代码是在DATEROWDETE

 

If e.DataRow.Isnull("审核") = False Then
    msgbox("工作流开始,不能删除")
    e.cancel = True
End If

 

如果我想设置成只要分区保存了,就不能删除;怎么样设置??


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


加好友 发短信
等级:三尾狐 帖子:660 积分:3965 威望:0 精华:0 注册:2014/3/16 20:34:00
  发帖心情 Post By:2014/4/23 17:11:00 [只看该作者]

我想设置的,除了分区人,能删除文件,其他不能删除

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


加好友 发短信
等级:三尾狐 帖子:660 积分:3965 威望:0 精华:0 注册:2014/3/16 20:34:00
  发帖心情 Post By:2014/4/23 17:11:00 [只看该作者]

也就是,文件保存后,除了分区,其他能不能用删除功能


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


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

 回复54楼,编写BeforeDeleteDataRow事件

 

 If dr.RowState = DataRowState.Added Then

     e.Cancel = True

 End If


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


加好友 发短信
等级:三尾狐 帖子:660 积分:3965 威望:0 精华:0 注册:2014/3/16 20:34:00
  发帖心情 Post By:2014/4/23 17:16:00 [只看该作者]

显示未声明DR

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


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

 写错了

 

 If e.Datarow.RowState <> DataRowState.Added Then

     e.Cancel = True

 End If

[此贴子已经被作者于2014-4-23 17:18:55编辑过]

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


加好友 发短信
等级:三尾狐 帖子:660 积分:3965 威望:0 精华:0 注册:2014/3/16 20:34:00
  发帖心情 Post By:2014/4/23 17:29:00 [只看该作者]

老师,分区人员在没有开始工作流时,删除不了
图片点击可在新窗口打开查看此主题相关图片如下:360截图20140423172853593.jpg
图片点击可在新窗口打开查看

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

 回到顶部
总数 67 上一页 1 2 3 4 5 6 7 下一页