主题：【副本表】怎么实现新增后就选择新增的行

Dim r As Row = Tables("员工考勤").AddNew               '词典表新增一行
Dim pgs As WinForm.TabControl = e.Form.Controls("页签")
Dim n As String =  pgs.SelectedPage.Text      '定义n为当前页签的标题
r("考勤类别") = n                         '新增行的类别为当前页签名称
Dim t As Table = e.form.controls("Table1").Table
Dim i = t.FindRow("_Identify = " & r("_Identify"))
t.Position = i