Foxtable(狐表)用户栏目专家坐堂 → [求助]父表中的某些列没有编辑完则子表不允许编辑代码


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

主题:[求助]父表中的某些列没有编辑完则子表不允许编辑代码

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


加好友 发短信
等级:一尾狐 帖子:449 积分:3330 威望:0 精华:0 注册:2012/11/10 7:00:00
[求助]父表中的某些列没有编辑完则子表不允许编辑代码  发帖心情 Post By:2015/12/5 20:10:00 [只看该作者]

表A和表B为父子表,如果父表表A中的A列、B列、C列没有编辑,则子表不可编辑,请老师前辈写个代码,谢谢!

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/12/6 15:29:00 [只看该作者]

Dim pdr As DataRow = e.Row.DataRow.GetParentRow("表b")
If pdr Is Nothing OrElse pdr.IsNull("第一列") OrElse pdr.IsNull("第二列") Then
    e.Cancel = True
End If


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


加好友 发短信
等级:一尾狐 帖子:449 积分:3330 威望:0 精华:0 注册:2012/11/10 7:00:00
  发帖心情 Post By:2015/12/6 20:07:00 [只看该作者]

老师:上面这代码不知放在表A的哪个事件为好,我试放了几个都没成功,请帮忙明示或修改一下,谢谢!


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/12/6 21:58:00 [只看该作者]

prepareEdit事件。


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/12/6 21:59:00 [只看该作者]

2楼的代码。表B是父表,表A是子表。

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


加好友 发短信
等级:一尾狐 帖子:449 积分:3330 威望:0 精华:0 注册:2012/11/10 7:00:00
  发帖心情 Post By:2015/12/7 7:16:00 [只看该作者]

老师:如果父表某列数据未填,加一个父表某列未填入数据的提示最好,麻烦再帮忙修改一下,谢谢!

 


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


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2015/12/7 8:43:00 [只看该作者]

分开判断,弹出提示,如
If pdr.IsNull("第一列") Then
    msgbox("xx表第一列还木有填写!")
    e.Cancel = True
    Return
End If
If pdr.IsNull("第二列") Then ......

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


加好友 发短信
等级:一尾狐 帖子:449 积分:3330 威望:0 精华:0 注册:2012/11/10 7:00:00
  发帖心情 Post By:2015/12/7 20:14:00 [只看该作者]

前辈,上面这个代码我试过了,没有成功,还望修改一下,谢谢!

 


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/12/7 20:17:00 [只看该作者]

 

[此贴子已经被作者于2015/12/7 20:17:45编辑过]

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/12/7 20:18:00 [只看该作者]

startEdit事件,不会做上传项目

 

Dim pdr As DataRow = e.Row.DataRow.GetParentRow("表A")
If pdr Is Nothing Then
 
    If pdr.IsNull("第一列") Then
        e.Cancel = True
        Return
    End If
   
End If


 回到顶部
总数 15 1 2 下一页