Output.Show("已经修改的数据表:")For Each dt As DataTable In DataTables msgbox(dt.Type) If dt.Type = 1 OrElse dt.Type = 3 Then If dt.HasChanges Then msgbox(dt.Name) End If End IfNext