记录一下主键位置
Dim temp As String = Tables("表A").Current("_Identify")
'任意的其他操作
'最后执行Dim idx As Integer = Tables("表A").FindRow("_Identify = " & temp)If idx >= 0 Then Tables("表A").Position = idxEnd If