Public Sub SaveDataGrid(ByVal grid As DataGrid, ByVal forecast_period As Date)
        Dim table As DataTable = grid.DataSource
        Dim row As DataRow

        'Dim tableDeleted As DataTable = table.GetChanges(DataRowState.Deleted)
        'If Not tableDeleted Is Nothing Then
        'For Each row In tableDeleted.Rows
        'Me.DeleteExcise(row( "excise_id" )) 
        'Next
        'End If

        Dim tableInserted As DataTable = table.GetChanges(DataRowState.Added)
        If Not tableInserted Is Nothing Then
            For Each row In tableInserted.Rows
                Me.InsertExcise(row( "trade_type_id" ), row( "product_id" ), row( "unit_id" ), _
                row( "currency_id" ), row( "duty" ), forecast_period) 'row( "forecast_period" )
            Next
        End If

        Dim tableUpdated As DataTable = table.GetChanges(DataRowState.Modified)
        If Not tableUpdated Is Nothing Then
            For Each row In tableUpdated.Rows
                Me.UpdateExcise(row( "excise_id" ), row( "unit_id" ), row( "currency_id" ), _
                row( "duty" ))
            Next
        End If
        table.AcceptChanges()
    End Sub

    Private Sub Row_Deleting(ByVal sender As Object, ByVal e As DataRowChangeEventArgs)
        Me.DeleteExcise(e.Row( "excise_id" ))
    End Sub