主题：集合遍历

dr.Locked 不能用来判断是否保存。

For Each dr As DataRow In e.Table.DataRows
    If dr.RowState <> DataRowState.Unchanged Then
        msgbox("请先保存")
        e.cancel = True
        Exit For
    End If
Next