主题：[求助]副本表新增行，在有筛选的情况下，如何定位到新增行？

Tables("缴费管理_缴费充值").Filter = "学生编号 = '"& Tables("学生管理_学生信息").Current("学生编号") &"'"

Tables("缴费管理_缴费充值").ExtendLastCol = True

Dim Cols1() As String = {"单位","学生编号","姓名"}

Dim Cols2() As String = {"单位","学生编号","姓名"}

Dim r1 As Row = Tables("学生管理_学生信息").Current

Dim r2 As Row = Tables("缴费管理_缴费充值").AddNew()

For i As Integer = 0 To Cols1.Length -1

    r2(Cols2(i)) = r1(Cols1(i))

Next