主题：为什么生成的Excel报表会产生２页？

还有当新增一行、多行或克隆行都锁定前一行，

Tables("订单").Current.Locked = True 怎样改

我在BeforeAddDataRow 输入代码

Dim dr As Row  = Tables("表A").Current

Dim dr2 As Row = Tables("表A").AddNew

dr.Locked = True

当按新增行时软件马上闪退

改成这样

Dim dr As Row  = Tables("表A").Current

dr.Locked = True

锁定最末行以下代码有没有可以优化

With Tables("表A")
    .Position = .Rows.Count - 1
End With
Dim dr As Row  = Tables("表A").Current
dr.Locked = True

Tables("表A").Rows(Tables("表A").rows.count-1).Locked = True

 不明白你具体指什么要什么效果？

 做具体例子发上来测试。