'The changes will be updated.
    Private Sub cmdSave_Click(sender As System.Object, e As System.EventArgs) _
      Handles cmdDelSave.Click
        Dim delivery = ClassFactory.getDelivery
        For counter = 0 To (dgvDelivery.Rows.Count - 1)
 
            'Column 0 = Delivery ID
            delivery.propDelId = Convert.ToInt32(dgvDelivery.Item(0, _
              counter).Value)
            Try
                'Column 9 = DriveCost
                If (IsDBNull(dgvDelivery.Item(9, counter).Value)) Then
 
                    ' CODE ***************************
                    MessageBox.Show("Fahrtkosten sind NULL.")
                Else
                    delivery.propDelDriveCost = Convert.ToDouble( _
                      dgvDelivery.Item(9, counter).Value)
                End If
                MessageBox.Show(Convert.ToInt32(dgvDelivery.Item(9, _
                  counter).Value).ToString)
            Catch ex As Exception
                MessageBox.Show("Keine Daten vorhanden.")
            End Try
        Next
    End Sub

I love VBarchiv.net!!

Beitrag wurde zuletzt am 12.07.12 um 11:33:22 editiert.