主题：[求助]

With CurrentTable

    Dim r As Integer

    r = .Find("张三", .RowSel + 1, 0, False, False, True)

    If r > - 1 Then '如果找到符合条件的行   

        .Position = r  '则选择该行

    End If 

End With

选定张三这行以后怎么将数据复制保存到另外一个表