以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  锁定关联的行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=13946)

--  作者:blackzhu
--  发布时间:2011/11/2 16:09:00
--  锁定关联的行
    我想在父表的锁定行以后的表事件中设置代码,可以锁定父表的当前行的同时锁定相对应的子表中关联的行,代码怎么写?
--  作者:blackzhu
--  发布时间: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
--  发布时间:2011/11/2 16:11:00
--  
有没有比这个代码更简单的?
--  作者:狐狸爸爸
--  发布时间:2011/11/2 16:16:00
--  

http://www.foxtable.com/help/topics/0431.htm

 


--  作者:blackzhu
--  发布时间:2011/11/2 16:20:00
--  
For Each dr As DataRow In e.DataRow.GetChildRows("商品套件名称")
    dr.Locked = False
Next