主题：被约束是唯一的

试试用代码移除这些提示

Dim dt = DataTables("表A").basetable
For Each r As object In dt.rows
    For Each c As object In dt.columns
        r.SetColumnError(c.tostring, "")
    Next
    r.RowError = ""
Next

一般在你save的时候才会报错的。你在save的代码后面加上清除的代码试试。

报错以后能否正常保存？

一般是你频繁操作save表格才会导致的错误，试试优化你的代码。