参考代码
Dim t As Table= e.Form.Controls("Table1").TableFor Each r As Row In t.rows If r("选择") = True Then Dim nr As Row = t.AddNew For Each c As Col In t.cols nr(c) = r(c) Next nr("选择") = False End IfNext