SoloCodigo
CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: beaversoft en Martes 3 de Junio de 2008, 11:10
-
Buenas a todos, soy novato en VB.Net y me han surgido una serie de dudas al realizar una aplicacion.
Concretamente al enviar los datos de un datagridview a un formulario, estuve buscando por el foro y encontre un hilo que me soluciono practicamente todo el tema, exceptuando los checkbox.
El problema que tengo es que al enviar los datos del datagridview al formulario, los envia todos correctamente , pero me da error en los dos checkbox que tengo. os pongo el codigo y si sois tan amables me podies indicar por donde va el asunto.
Private Sub DataGridView1_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick
Form4.Show()
With DataGridView1
Dim Sele As Byte = CByte(Me.DataGridView1.CurrentCell.RowIndex)
Try
Form4.TextBox1.Text = .Rows(Sele).Cells(0).Value.ToString
Form4.TextBox2.Text = .Rows(Sele).Cells(1).Value.ToString
Form4.TextBox3.Text = .Rows(Sele).Cells(2).Value.ToString
Form4.TextBox4.Text = .Rows(Sele).Cells(3).Value.ToString
Form4.TextBox5.Text = .Rows(Sele).Cells(4).Value.ToString
Form4.TextBox6.Text = .Rows(Sele).Cells(5).Value.ToString
Form4.TextBox7.Text = .Rows(Sele).Cells(6).Value.ToString
Form4.CheckBox1.CheckState = .Rows(Sele).Cells(8).Value.ToString
Form4.TextBox8.Text = .Rows(Sele).Cells(7).Value.ToString
Form4.TextBox9.Text = .Rows(Sele).Cells(9).Value.ToString
Form4.TextBox10.Text = .Rows(Sele).Cells(10).Value.ToString
Form4.TextBox11.Text = .Rows(Sele).Cells(11).Value.ToString
Form4.CheckBox2.CheckState = .Rows(Sele).Cells(12).Value.ToString
Form4.TextBox12.Text = .Rows(Sele).Cells(13).Value.ToString
Form4.TextBox13.Text = .Rows(Sele).Cells(14).Value.ToString
Form4.TextBox14.Text = .Rows(Sele).Cells(15).Value.ToString
Catch ex As Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
End With
Me.Dispose()
Me.Close()
End Sub
Se que los checkbox estan mal, pues son tipo boolean, pero no se como selecionar el valor y enviarlo o como convertirlos para usarlos.
Muchas gracias y perdonad por la explicacion, si no se entiende bien.
-
que tal yo haria lo siguiente
Form4.CheckBox1.CheckState = .Rows(Sele).Cells(8).Value.ToString
Form4.CheckBox1.Checked =convet.toboolean(.Rows(Sele).Cells(8).Value.ToString)
espero te sirva mira la siguiente pagina www.onglasses.net (http://www.onglasses.net), ahi encontraras un articulo que te puede complementar.
-
Muchas gracias oscarb, a la perfeccion. voy a pasarme por la pagina a ver que tal. Gracias de nuevo.