主题：当前表RejectChanges后，DataColChanged不执行，是Bug？

Reject不会触发DataColChanged事件，建议这种情况，换个方法实现reject，例如撤销当前行的修改：

Dim dr As DataRow = Tables("表A").current.DataRow
For Each dc As DataCol In DataTables("表A").DataCols
     dr(dc.name) = dr.OriginalValue(dc.name)
Next