尝试执行代码
Dim dt = DataTables("表A").basetableFor Each r As object In dt.rows For Each c As object In dt.columns r.SetColumnError(c.tostring, "") Next r.RowError = ""Next