以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请问，如何返回HasChanges对应的行？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=74807)
--  作者：yancheng
--  发布时间：2015/9/19 16:11:00
--  请问，如何返回HasChanges对应的行？
If DataTables("销售明细").HasChanges Then
****
end if

我要将“销售明细”被修改，而未保存的行，找到后，把它的：关联父表：销售订单，对应的行，设置为当前行。（光标自动定位到此行）
--  作者：大红袍
--  发布时间：2015/9/19 16:18:00
--  
If DataTables("销售明细").HasChanges Then
    For Each dr As DataRow In DataTables("销售明细").datarows
        If dr.RowState <> DataRowState.Unchanged Then
            Dim pdr As DataRow = dr.GetParentRow("订单")
            Tables("订单").position = Tables("订单").FindRow(pdr)
        End If
    Next
End If