Datagridview
Publicado por Maick (35 intervenciones) el 20/05/2020 18:55:13
Buenos día, quisiera que me ayudaran con un pequeño problema que tengo con un datagridview, quirto multiplicar dos columnas y mostrar el resultado en una quinta columna, el código que estoy utilizado es este:
Gracias por su apoyo.
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
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim i As Integer
For i = 1 To 100ComboBox1.Items.Add(i)
Next
ComboBox2.Items.Add("Mouse inalambrico")
ComboBox2.Items.Add("Teclado Flexible")
ComboBox2.Items.Add("Teclado Multimedia")
ComboBox2.Items.Add("Minilaptop")
ComboBox2.Items.Add("Memoria USB kINGSTON")
ComboBox2.Items.Add("Camara Web")
ComboBox3.Items.Add("Mouse inalambrico Q. 125.00")
ComboBox3.Items.Add("Teclado Flexible Q. 80.00")
ComboBox3.Items.Add("Teclado Multimedia Q. 150.00")
ComboBox3.Items.Add("Minilaptop Q. 2,500.00")
ComboBox3.Items.Add("Memoria USB de 16 gb kINGSTON Q. 100.00")
ComboBox3.Items.Add("Camara Web Q. 85.00")
Dg1.Columns.Add("no", "No.Factura ")
Dg1.Columns.Add("Cant", "CANTIDAD")
Dg1.Columns.Add("Des", "DESCRIPCIÓN DEL PRODUCTO")
Dg1.Columns.Add("PU", "P/U")
Dg1.Columns.Add("ST", "SUB-TOTAL")
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If ComboBox1.Text <> "" And ComboBox2.Text <> "" And ComboBox2.Text <> "" Then
Dg1.Rows.Add(TextBox1.Text, ComboBox1.SelectedItem, ComboBox2.SelectedItem, ComboBox3.SelectedItem)
Else
MsgBox("Debe llenar todos los campos", MsgBoxStyle.Critical, "Error")
End If
End Sub
End Class
Gracias por su apoyo.
Valora esta pregunta
0
