Formato % en columna de listbox
Publicado por fjpg (135 intervenciones) el 04/11/2019 19:46:12
Hola de nuevo compys!! XD
Como puedo hacer para que en un listbox, en una columna salga el sino %
Explico:
Desde un form2 añado items a otro form1.
Este codigo lo tengo en un label para añadir los items al form1
Alguna ayuda???
Como puedo hacer para que en un listbox, en una columna salga el sino %
Explico:
Desde un form2 añado items a otro form1.
Este codigo lo tengo en un label para añadir los items al form1
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
'''' EVITAMOS CONTROLES VACIOS
If Me.txt_total_compra.Text = "" Then
Me.txt_total_compra.BackColor = &HC0C0FF
MsgBox "El precio total de compra no puede quedar vacío", vbCritical, "CONTROL DE ALMACÉN"
Me.txt_compra.SetFocus
Exit Sub
End If
With frm_compras_nueva.ListBox1 .AddItem txt_nombrea = .ListCount - 1
.List(a, 0) = txt_codigo
.List(a, 1) = txt_nombre
.List(a, 2) = txt_compra
.List(a, 3) = txt_cantidad_compra
.List(a, 4) = txt_importe_compra
.List(a, 5) = txt_descuento_compra
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''EN ESTA COLUMNA NECESITO EL SIGNO %
'''''''''''''''''''''''creo que podra ser algo asi, pero ni idea,....
.List(a, 5) = Format( "%")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
.List(a, 6) = txt_total_compra
For i = 0 To aw_txt_total = w_txt_total + CDbl(.List(i, 6))
Next
frm_compras_nueva.txt_total = w_txt_total
End With
' End If
Call LimpiarControles
Alguna ayuda???
Valora esta pregunta
0
