problema datareader y funcion
Publicado por Pablo (7 intervenciones) el 03/06/2019 03:48:20
Buenas , soy nuevo en el tema de vb.net y estoy aprendiendo a los tumbos , estoy haciendo un programa de tipo pos , y me surgieron 2 dudas , la primera es tengo un textbox donde yo ingreso un codigo de barra y este busca un articulo en la base de datos sql , eso funciona perfecto salvo cuando abro dicho form y sin ingresar ningun dato hago click o paso a cualquier textbox me genera un nullexception , si le doy un valor a ese textbox ovbiamente no recibo la excepcion , pero me gustaria saber si hay otra manera de evitar esto , y la segunda consulta serie sobre el mismo textbox me gustaria tener una funcion que asigne un valor a otro textbox , osea yo sobre el textbox que leo el codigo de barra si pongo 3*77774737473 me asigne 3 al textbox txtcant.text ignore el * y busque el articulo 77774737473 en la base como ya esta haciendolo les dejo esa parte del codigo espero que no sea una molestia mi consulta y recuerden que estoy empezando en esto de la programacion.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub txtcod_Leave(sender As Object, e As EventArgs) Handles txtcod.Leave
If txtcod.Text <> "" Then
consultarplu(Me.txtcod.Text)
If dr.Read ThenMe.txtnombre.Text = dr(0).ToString
Me.txtprecio.Text = dr(6).ToString
Dim suma As Double
suma = Val(txtcant.Text) * Val(txtprecio.Text)
txtsub.Text = Val(suma)
DataGridView2.Rows.Add(txtcod.Text, txtnombre.Text, txtcant.Text, suma)
Dim linea As DataGridViewRow
Dim valor As Double
For Each linea In DataGridView2.Rowsvalor = valor + linea.Cells(3).Value
Next
txttotal.Text = "$ " & FormatNumber(valor, 2)
Else
MsgBox("Articulo no encontrado")
txtcant.Focus()
End If
Else
End If
dr.Close()
End Sub
Valora esta pregunta
1
