currenttable.current.save

Dim na As String=CurrentTable.Name  获得当前表名称
For Each  re As relation In relations 
     If re.ParentTable.name=na Then   如果当前表是关联表的父表
         Dim zna As String=re.ChildTable.name  获得子表的名称
End If
Next
           Dim drs As List(of DataRow)
           Dim dk As DataRow=CurrentTable.current
           drs=dk.GetChildRows(" & zna &")  获得父表当前行的关联行并将其锁定

           For Each dr As dataRow In  drs
            dr.Locked = True

Next

系统提示这段代码有问题 ROW的值无法转换为datarow

这段代码是给一个通用保存按钮写的  这样就不用每个表设计一个保存按钮了 这个按钮设计成快捷访问 不管哪个关联表都能起作用

改了又报其他的错（getchild不是row成员） 请高手帮忙看看

自己搞定了