在Afterload事件设置锁定行
For Each r As Row In Tables("表A").Rows
r.Locked = True
Next
在相关地方新增行
Tables("表A").AddNew()
初学,刚好学到这