Dataset Modificato

Private Function DataSetChanged(ByVal theDataset As DataSet) As Boolean
        Dim dtChanges As DataTable
        Dim blnDataChanged As Boolean = False
        '
        ' Create a table containing the changed rows.
        '
        dtChanges = theDataset.Tables(0).GetChanges
        '
        ' See if the table contains changed rows.
        '
        If dtChanges Is Nothing Then
            Return False
        Else
            '
            ' If rows were added or deleted we have confirmed changes. 
            ' If a value changed confirm it changed. "RowState" will indicate
            ' a change even if the value was reset to its original value
            '
            Dim Row As DataRow
            Dim intColumn As Integer

For Each Row In dtChanges.Rows
                Select Case Row.RowState
                    Case DataRowState.Added
                        blnDataChanged = True

Case DataRowState.Deleted
                        blnDataChanged = True

Case DataRowState.Modified
                        For intColumn = 0 To dtChanges.Columns.Count - 1
                            If Row(intColumn, DataRowVersion.Original) <> _
                               Row(intColumn, DataRowVersion.Current) Then

blnDataChanged = True
                                Exit For
                            End If
                        Next
                End Select
                If blnDataChanged Then Exit For
            Next
            Return blnDataChanged
        End If
    End Function

Private Function DataSetChanged(ByVal theDataset As DataSet) As Boolean
Dim dtChanges As DataTable
Dim blnDataChanged As Boolean = False
'

' Create a table containing the changed rows.

'

dtChanges = theDataset.Tables(0).GetChanges
'

' See if the table contains changed rows.

'

If dtChanges Is Nothing Then
Return False
Else
'

' If rows were added or deleted we have confirmed changes.

' If a value changed confirm it changed. "RowState" will indicate

' a change even if the value was reset to its original value

'

Dim Row As DataRow
Dim intColumn As Integer

For Each Row In dtChanges.Rows
Select Case Row.RowState
Case DataRowState.Added
blnDataChanged = True

Case DataRowState.Deleted
blnDataChanged = True

Case DataRowState.Modified
For intColumn = 0 To dtChanges.Columns.Count - 1
If Row(intColumn, DataRowVersion.Original) <> _
Row(intColumn, DataRowVersion.Current) Then

blnDataChanged = True
Exit For
End If
Next
End Select
If blnDataChanged Then Exit For
Next
Return blnDataChanged
End If
End Function