Visual Basic.NET - datagriview ayuda

 
Vista:

datagriview ayuda

Publicado por diego castaño (5 intervenciones) el 14/08/2009 20:51:11
hola...

bueno en realidad tengo un dilema es este datagriview...

la idea que yo tengo es que al ser selecionado un registro de ese datagriview,
me lo lleve a unos texbox... pero estos textbox estan en otro formalario...
intente con este codigo pero.
1- me muestra o me mostraba ya no jejje... el primer campo

nota vale aclaran que el datagriview esta conectado con una base de datos por medio de codigo... tons es el primer registro el que se ve en los textbox

este es el codigo:

// definicion de variables....

MAESTRAS: es el otro formulario al cual debo llevar la informacion osea que los textbox estan aqui...

chanfle aunque bienodo bien mmm como hago o que hago para decirle que lo que seleciono es lo que debo llevar...

Dim cs As New SqlConnection("Server=(LOCAL);integrated security=sspi;database=DBInventory;uid=sa;pwd=;")
Dim cmd1 As New SqlCommand("select count(*) as RowNumber from Informacion_de_los_equipos", cs)
cs.Open()
Dim da1 As SqlDataReader = cmd1.ExecuteReader()
da1.Read()
Dim RowNumber As Integer = CInt(da1(0))
da1.Close()
Dim cmd As New SqlCommand("SELECT IDequipo,Responsable,Cargo,Generador,Marca_Equipo,Referencia,Serial,Sede,Sistema_Operativo,Procesador,Velocidad_del_Procesador,Memoria,Tipo_de_Conector,Tamaño_de_Memoria,Monitor,Disco_Duro,Tipo_de_Disco_Duro,Impresora,Serial_Impresora,Estado,* FROM Informacion_de_los_equipos ", cs)
Dim da As SqlDataReader = cmd.ExecuteReader()
Dim dt As New DataTable()
Dim ds As New DataSet
dt.Columns.Add("IDequipo", GetType(String))
dt.Columns.Add("Responsable", GetType(String))
dt.Columns.Add("Cargo", GetType(String))
dt.Columns.Add("Generador", GetType(String))
dt.Columns.Add("Marca_Equipo", GetType(String))
dt.Columns.Add("Referencia", GetType(String))
dt.Columns.Add("Serial", GetType(String))
dt.Columns.Add("Sede", GetType(String))
dt.Columns.Add("Sistema_Operativo", GetType(String))
dt.Columns.Add("Procesador", GetType(String))
dt.Columns.Add("Velocidad_del_Procesador", GetType(String))
dt.Columns.Add("Memoria", GetType(String))
dt.Columns.Add("Tipo_de_Conector", GetType(String))
dt.Columns.Add("Tamaño_de_Memoria", GetType(String))
dt.Columns.Add("Monitor", GetType(String))
dt.Columns.Add("Disco_Duro", GetType(String))
dt.Columns.Add("Capacidad_Disco_Duro", GetType(String))
dt.Columns.Add("Tipo_de_Disco_Duro", GetType(String))
dt.Columns.Add("IP_de_Equipo ", GetType(String))
dt.Columns.Add("Impresora", GetType(String))
dt.Columns.Add("Serial_Impresora", GetType(String))
dt.Columns.Add("Estado", GetType(String))
While da.Read()
Dim tempRow As DataRow = dt.NewRow()
tempRow(0) = da(0)
tempRow(1) = da(1)
tempRow(2) = da(2)
tempRow(3) = da(3)
tempRow(4) = da(4)
tempRow(5) = da(5)
tempRow(6) = da(6)
tempRow(7) = da(7)
tempRow(8) = da(8)
tempRow(9) = da(9)
tempRow(10) = da(10)
tempRow(11) = da(11)
tempRow(12) = da(12)
tempRow(13) = da(13)
tempRow(14) = da(14)
tempRow(15) = da(15)
tempRow(16) = da(16)
tempRow(17) = da(17)
tempRow(18) = da(18)
tempRow(19) = da(19)
tempRow(20) = da(20)
tempRow(21) = da(21)
dt.Rows.Add(tempRow)
End While
ds.Tables.Add()
Me.DataGridView1.DataSource = dt
MAESTRAS.txtidequipo.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(0).Value)
MAESTRAS.txtresponsable.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(1).Value)
MAESTRAS.txtcargo.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(2).Value)
MAESTRAS.txtgenerador.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(3).Value)
MAESTRAS.txtmarca.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(4).Value)
MAESTRAS.txtreferencia.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(5).Value)
MAESTRAS.txtserial.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(6).Value)
MAESTRAS.txtsede.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(7).Value)
MAESTRAS.txtsistema.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(8).Value)
MAESTRAS.txtprocesador.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(9).Value)
MAESTRAS.txtvelocidadp.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(10).Value)
MAESTRAS.txtmemoria.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(11).Value)
MAESTRAS.txttipocone.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(12).Value)
MAESTRAS.txttamañomemoria.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(13).Value)
MAESTRAS.txtmonitor.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(14).Value)
MAESTRAS.txtdisco.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(15).Value)
MAESTRAS.txtcapacidaddisco.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(16).Value)
MAESTRAS.txttipodisco.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(17).Value)
MAESTRAS.txtip.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(18).Value)
MAESTRAS.txtimpresora.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(19).Value)
MAESTRAS.txtseriaimpresora.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(20).Value)
MAESTRAS.txtestadoimpresora.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(21).Value)
MAESTRAS.Show()
Me.Hide()
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:datagriview ayuda

Publicado por Damian (824 intervenciones) el 15/08/2009 00:36:45
Te tienes que declarar una instancia de tu formulario

Dim frMestras As New MAESTRAS

frMaestras.txtidequipo.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(0).Value)
.....
.....
....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar