试试，去掉提示。
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
加好友 
发短信
Post By：2017/12/20 10:49:00 [显示全部帖子]
