以下是引用weizhangying在2016/11/2 20:18:00的发言:
代码量实在有点大,排查太麻烦了,是昨天修改项目的时候突然发现以前运行正常的CLONE也不行了,估计是代码影响到了,索性全部改成ADDNEW了,然后手动复制内容,还好数据量不大
克隆的时候不好控制,addNew之后赋值,可以用循环的方式,如
Dim t As Table = Tables("表A")
Dim cr As Row = t.current
dim nr as row = t.addnew
For Each c As Col In t.cols
nr(c.name) = cr(c.name)
Next