Visual Basic - en que me falla esto

Val: 8

en que me falla esto

Publicado por Oswal (5 intervenciones) el 14/06/2018 22:25:34

como hacer que mi textbox que esta desclarado en integer no me marque 0 cuando esta vacio. por que entonces no me validara

Dim c, disponible As Integer

c = Convert.ToDouble(Tbcantidadpedido.Text)

disponible = Convert.ToDouble(TBcantidadisponibel.Text)

If ((Tbcantidadpedido.Text = "") Or (c = 0)) Then

    Tbcantidadpedido.Clear()

    Tbcantidadpedido.Focus()

    MsgBox("¡Error!... Debe Tener en cuenta que debe Ingresar una Cantidad", MsgBoxStyle.Critical, "Cantidad")

Else

    If disponible = 0 Then

        MsgBox("¡Atención!... No hay Producto Disponible Para Salida", MsgBoxStyle.Critical, "Cantidad")

        limpieza()

    Else

        If (Tbcantidadpedido.Text > TBcantidadisponibel.Text) Then

            MsgBox("¡Error!... Supera el limite del Producto disponible  ", MsgBoxStyle.Critical, "Cantidad")

            Tbcantidadpedido.Clear()

            Tbcantidadpedido.Focus()

        Else

            agregarfila()

            agregaradtgsalida()

            restadelproducto()

            SQLDAProducto.Update(DSsalida1.Producto)

            SQLDAProducto.Fill(DSsalida1.Producto)

            eventodelcomboproduc()

            limpieza()

            DTGWsalida.Enabled = True

            PBAceptar.Enabled = True

        End If

    End If

End If

este es el codigo que uso

Valora esta pregunta

Responder

Val: 109

Publicado por Yamil Bracho (226 intervenciones) el 14/06/2018 22:30:28

Coloca el chequeo del textBox antes de hacer la conversion. Seria algo como :

Dim str As String = Tbcantidadpedido.Text.Trim()

If ((str.Length == 0) Then

   Tbcantidadpedido.Clear()

   Tbcantidadpedido.Focus()

   MsgBox("¡Error!... Debe Tener en cuenta que debe Ingresar una Cantidad", MsgBoxStyle.Critical, "Cantidad")

End If

c = Convert.ToDouble(str)

...

Valora esta respuesta

Comentar