Foxtable(狐表)用户栏目专家坐堂 → 锁定关联的行


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

主题:锁定关联的行

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
锁定关联的行  发帖心情 Post By:2011/11/2 16:09:00 [只看该作者]

    我想在父表的锁定行以后的表事件中设置代码,可以锁定父表的当前行的同时锁定相对应的子表中关联的行,代码怎么写?

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/11/2 16:11:00 [只看该作者]


    Dim drs As List(Of DataRow)
    Dim sd As String = Tables("商品档案").Current("商品编码")
    drs = DataTables("商品套件名称").Select("[商品编码] = '" & sd & "'")
    For Each dr As DataRow In drs
        dr.Locked() =False
    Next

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/11/2 16:11:00 [只看该作者]

有没有比这个代码更简单的?

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/11/2 16:16:00 [只看该作者]


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


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/11/2 16:20:00 [只看该作者]

For Each dr As DataRow In e.DataRow.GetChildRows("商品套件名称")
    dr.Locked = False
Next

 回到顶部