主题：[求助]请教PositionChanged的问题

 直接load这一行就好。

Dim r As Row = e.Table.Current
If r IsNot Nothing Then
    r.DataRow.Load
End If

如果要比较也行，参考

Dim r As Row = e.Table.Current
If r IsNot Nothing Then
    For Each c As Col In e.Table.cols
        If c.DataCol.Expression = "" Then
            If r.DataRow.OriginalValue(c.name) <> r(c.name) Then
                Dim Result As DialogResult
                Result = MessageBox.Show("当前行有修改,是否重新加载?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                If Result = DialogResult.Yes Then
                    r.DataRow.Load
                End If
                Exit For
            End If
        End If
    Next
End If