currentChanged事件
If e.Table.current Is Nothing Then Return Dim wz As Integer = Tables("person").FindRow("[peidnumber] = '" & e.Table.current("某列") & "'")If wz >= 0 Then Tables("person").Position = wzEnd If