Dim i As Integer = Tables("表A").Current("_Identify")
'重新加载
Dim idx As Integer = Tables("表A").FindRow("_Identify = " & i)
If idx >= 0 Then
Tables("表A").position = idx
End If