
05/03/2009, 16:05
|
 | | | Fecha de Ingreso: octubre-2008 Ubicación: La ciudad de la esperanza
Mensajes: 133
Antigüedad: 16 años, 4 meses Puntos: 3 | |
Respuesta: Acceder a esta tabla. Te dejo parte de mi codigo espero te sirva y ojala pudieras ayudarme con una pregunta que tengo mas o menos 2 abajo de la tuya
ds.Tables(x).Row(X).Item(columna).ToString
With Go_DataSet.Tables.Item("Asignadas")
For iDato1 = 0 To .Rows.Count - 1
For iDato2 = 0 To .Columns.Count - 1
GoCbo = Me.Controls(1)
If .Columns(iDato2).ColumnName = "Clave" Then
If .TableName = "Asignadas" And GoCbo.SelectedIndex = .Rows(iDato1).Item(iDato2).ToString Then
GoCbo = Me.Controls(5)
GoCbo.Items.Insert(0, .Rows(iDato1).Item("Nombre").ToString)
GoCbo.Text = .Rows(iDato1).Item("Nombre").ToString
Me.Controls(8).Text = .Rows(iDato1).Item("Ajuste_X").ToString
Me.Controls(10).Text = .Rows(iDato1).Item("Ajuste_Y").ToString
Me.Controls(12).Text = .Rows(iDato1).Item("Copias").ToString
GoChk.Checked = True
MiTx = 3
streamRead.Close()
Exit Select
Else
MiTx = 1
GoChk.Checked = True
End If
End If
Next iDato2
Next iDato1
End With |