主题：自动选择副表当选行，并复制到表A中

For Each r As Row In Tables("窗口2_Table1").Rows
   r.Checked = False
Next
Tables("窗口2_Table1").Current.Checked = True

按钮代码：

Dim r As Row = Tables("窗口2_Table1").Current
Dim dr As Row = Tables("表A").AddNew
dr("编号") = r("第一列")
dr("公司名称") = r("第二列")
'…………
e.Form.Close