Llenar datagriedview
Publicado por camilo andres (5 intervenciones) el 20/09/2016 15:31:56
Buenos dias:
en la imagen adjunta se muestra lo que intento hacer, quiero cargar en un datagriedview unas subcategorias que tengo en mysql, me sale bien pero debo ir seleccionando una por una y yo quisiera que aparezcan todas ya seleccionadas como en la tercera imagen. todavía no soy bueno en programar y este es un programa que alguein me hizo hace mucho tiempo (ya no tengo contacto con el) y ahora estoy tratando de adecuarlo a mis necesidades.
De antemano muchas gracias a quien me puede ayudar
estas son las funciones
y este esto es cuando cargo el form
en la imagen adjunta se muestra lo que intento hacer, quiero cargar en un datagriedview unas subcategorias que tengo en mysql, me sale bien pero debo ir seleccionando una por una y yo quisiera que aparezcan todas ya seleccionadas como en la tercera imagen. todavía no soy bueno en programar y este es un programa que alguein me hizo hace mucho tiempo (ya no tengo contacto con el) y ahora estoy tratando de adecuarlo a mis necesidades.
De antemano muchas gracias a quien me puede ayudar
estas son las funciones
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
Public Shared Sub CargarCombo3(cmbx As DataGridViewComboBoxCell, consult As String, value As String, display As String)
Dim ObjCon As New BaseDato()
ObjCon.Conectar()
ObjCon.CrearComando(consult)
cmbx.DataSource = ObjCon.EjecutarDataTable()
ObjCon.Desconectar()
cmbx.ValueMember = value
cmbx.DisplayMember = display
End Sub
Public Shared Sub CargarSubcategoria(ByVal fila As DataGridViewRow, ByVal e As DataGridViewCellEventArgs, ByVal id As Integer)
Dim celda As DataGridViewComboBoxCell = TryCast(fila.Cells(1), DataGridViewComboBoxCell)
CargarCombo3(celda, "SELECT * FROM Subcategoria WHERE IdCategoria = " & id, "Codigo", "Nombre")
End Sub
Public Sub CargarCategorias(ByVal idcat As Integer, ByVal dgv As DataGridView)
Try
ObjCon.Conectar()
ObjCon.CrearComando("SELECT COUNT(*) FROM subcategoria WHERE IdCategoria = ?idcat")
ObjCon.AsignarParametro("?idcat", MySqlDbType.Int32, idcat)
Dim cont As Integer = Convert.ToInt32(ObjCon.EjecutarDataTable.Rows(0)(0).ToString)
ObjCon.Desconectar()
Dim i As Integer
Dim subcat As New DataGridViewComboBoxColumn()
subcat.Name = "Subcategoria"
Funciones.CargarCombo2(subcat, "SELECT * FROM Subcategoria WHERE IdCategoria = " & idcat, "Codigo", "Nombre")
dgv.Columns.Add(subcat)
Dim rev As New DataGridViewComboBoxColumn()
rev.Name = "Calificacion"
rev.Items.Add("Bueno")
rev.Items.Add("Regular")
rev.Items.Add("Malo")
rev.Items.Add("No Aplica")
dgv.Columns.Add(rev)
Dim def As New DataGridViewComboBoxColumn()
def.Name = "Defecto"
dgv.Columns.Add(def)
Dim obs As New DataGridViewTextBoxColumn()
obs.Name = "Observacion"
dgv.Columns.Add(obs)
For i = 1 To cont Step 1dgv.Rows.Add()
Next
Catch mierror As Exception
MessageBox.Show("Error de Conexión a la Base de Datos: " & mierror.Message)
End Try
End Sub
y este esto es cuando cargo el form
1
2
3
4
5
Private Sub FrmCategoria_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
ObjVehi.CargarCategorias(id, DgvRevision)
'Funciones.CargarDataCombo(DgvRevision, id) ' DgvRevision.AutoGenerateColumns = TrueEnd SubValora esta pregunta
0