Dim sort As String = Tables("合并模式").sort Dim r As Row = Tables("合并模式").Current Tables("合并模式").AllowMerge =False Tables("合并模式").sort = "" Dim nr As Row = Tables("表A").addnew nr.Move(r.Index+1) For Each c As Col In Tables("合并模式").Cols nr(c.Name) = r(c.Name) Next Tables("合并模式").sort = sort Tables("合并模式").AllowMerge = True
加好友 
发短信
Post By：2016/7/6 23:17:00 [只看该作者]
