Rellenar Textboxes desde listbox
Publicado por José Vicente (113 intervenciones) el 01/03/2021 19:37:10
Hola de nuevo, tengo una Bd la cual relleno desde unos textboxes, a su vez también voy añadiendo en un listbox el identificador de cada registro.
El problema que tengo es que no consigo rellenar los textboxes al seleccionar cada registo del listbox. El código que tengo es:
¿Puede alguén echarme una mano? Gracias.
El problema que tengo es que no consigo rellenar los textboxes al seleccionar cada registo del listbox. El código que tengo es:
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Private Sub analiticanum_lbox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles analiticanum_lbox.SelectedIndexChanged
conexion.Close()
Dim valor As Integer = analiticanum_lbox.SelectedItem
Dim consulta As String = " Select * from datos;"
Dim comando As NpgsqlCommand = New NpgsqlCommand(consulta, conexion)
Dim lector As NpgsqlDataReader
conexion.Open()
lector = comando.ExecuteReader
If valor <> 0 Then
lector.Read()
fecha_mtbox.Text = lector.Item(1).ToString
hematies_tbox.Text = lector.Item(2).ToString
hemoglobina_tbox.Text = lector.Item(3).ToString
hematocrito_tbox.Text = lector.Item(4).ToString
vcm_tbox.Text = lector.Item(4).ToString
hcm_tbox.Text = lector.Item(5).ToString
chcm_tbox.Text = lector.Item(6).ToString
anchoDis_tbox.Text = lector.Item(7).ToString
eritrocitos_tbox.Text = lector.Item(8).ToString
leucocitos_tbox.Text = lector.Item(9).ToString
neutrofilosA_tbox.Text = lector.Item(10).ToString
linfocitosA_tbox.Text = lector.Item(11).ToString
monocitosA_tbox.Text = lector.Item(12).ToString
eosinofilosA_tbox.Text = lector.Item(13).ToString
basofilosA_tbox.Text = lector.Item(14).ToString
neutrofilos_tbox.Text = lector.Item(15).ToString
linfocitos_tbox.Text = lector.Item(16).ToString
monocitos_tbox.Text = lector.Item(17).ToString
eosinofilos_tbox.Text = lector.Item(18).ToString
basofilos_tbox.Text = lector.Item(19).ToString
plaquetas_tbox.Text = lector.Item(20).ToString
vpm_tbox.Text = lector.Item(21).ToString
glucosa_tbox.Text = lector.Item(22).ToString
urea_tbox.Text = lector.Item(23).ToString
creatinina_tbox.Text = lector.Item(24).ToString
fge_tbox.Text = lector.Item(25).ToString
urato_tbox.Text = lector.Item(26).ToString
colesterol_tbox.Text = lector.Item(27).ToString
hdl_tbox.Text = lector.Item(28).ToString
ldl_tbox.Text = lector.Item(29).ToString
vldl_tbox.Text = lector.Item(30).ToString
trigliceridos_tbox.Text = lector.Item(31).ToString
bilirrubina_tbox.Text = lector.Item(32).ToString
gpt_tbox.Text = lector.Item(33).ToString
ggt_tbox.Text = lector.Item(34).ToString
fosfatasa_tbox.Text = lector.Item(35).ToString
sodio_tbox.Text = lector.Item(36).ToString
potasio_tbox.Text = lector.Item(37).ToString
hierro_tbox.Text = lector.Item(38).ToString
transferrinaS_tbox.Text = lector.Item(39).ToString
transferrinaI_tbox.Text = lector.Item(40).ToString
osmolaridad_tbox.Text = lector.Item(41).ToString
apolipoproteina_tbox.Text = lector.Item(42).ToString
t4_tbox.Text = lector.Item(43).ToString
ferritina_tbox.Text = lector.Item(44).ToString
End If
lector.Close()
conexion.Close()
End Sub
¿Puede alguén echarme una mano? Gracias.
Valora esta pregunta
0