Private Sub Column_Changed(ByVal sender As Object, ByVal e As DataColumnChangeEventArgs)
        If e.Column.Ordinal =  1  Then 'volume
            Dim value As Double = e.ProposedValue
            If value /  55  <> value \  55  Then
               e.ProposedValue = (value \  55 ) *  55 
            End If
        End If
    End Sub