主题：[求助]插入行

Dim sort As String = Tables("合并模式").sort
Dim r As Row = Tables("合并模式").Current
Tables("合并模式").AllowMerge =False
Tables("合并模式").sort = ""
Dim nr As Row = Tables("合并模式").InsertNew
For Each c As Col In Tables("合并模式").Cols
    nr(c.Name) = r(c.Name)
Next
Tables("合并模式").sort = sort
Tables("合并模式").AllowMerge = True