主题：多行多例同时增加到表

类似代码

For Each r As DataRow In Tables("新增部门_Table1").DataTable.Select("选择 = true")
    Dim nr As Row = Tables("GZ部门").AddNew
    nr("部门") = r("所属部门")
Next