克隆的时候不好控制,addNew之后赋值,可以用循环的方式,如
Dim t As Table = Tables("表A")Dim cr As Row = t.currentdim nr as row = t.addnewFor Each c As Col In t.cols nr(c.name) = cr(c.name)Next