Friend Sub Navegar(T1 As TextBox, T2 As TextBox, T3 As TextBox, T4 As TextBox, T5 As TextBox, T6 As TextBox, T7 As TextBox, T8 As TextBox, _
T9 As TextBox, T10 As TextBox, T11 As TextBox, T12 As TextBox, T13 As TextBox, T14 As TextBox, T15 As TextBox, T16 As TextBox, _
T17 As TextBox, T18 As TextBox, T19 As TextBox, T20 As TextBox, T21 As TextBox, T22 As TextBox, T23 As TextBox, T24 As TextBox, _
ds As DataSet, indec As Integer, C1 As ComboBox, C2 As ComboBox, C3 As ComboBox, C4 As ComboBox, C5 As ComboBox, C6 As ComboBox, _
C7 As ComboBox, C8 As ComboBox, chk1 As CheckBox, chk2 As CheckBox, LblRegistro As Label)
T1.Text = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(1)
T2.Text = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(2)
T3.Text = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(3)
T4.Text = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(4)
T5.Text = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(5)
T6.Text = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(6)
T7.Text = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(7)
T8.Text = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(8)
T9.Text = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(9)
T10.Text = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(10)
T11.Text = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(11)
T12.Text = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(12)
T13.Text = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(13)
T14.Text = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(14)
T15.Text = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(15)
T16.Text = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(16)
C1.SelectedItem = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(17)
C2.SelectedItem = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(18)
'página 2
If ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(19) = "Sí" Then
chk1.Checked = True
Else
chk1.Checked = False
End If
C3.SelectedItem = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(20)
C4.SelectedItem = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(21)
T17.Text = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(22)
C5.SelectedItem = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(23)
C6.SelectedItem = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(24)
T18.Text = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(25)
If ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(26) = "Sí" Then
chk2.Checked = True
Else
chk2.Checked = False
End If
C7.SelectedItem = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(27)
C8.SelectedItem = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(28)
T19.Text = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(29)
T20.Text = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(30)
T21.Text = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(31)
T22.Text = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(32)
T23.Text = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(33)
T24.Text = ds.Tables("SC_DetalleSolicitudCotizacion").Rows(indec).Item(34)
'pagina 3
LblRegistro.Text = "" & indec + 1 & " de " & ds.Tables("SC_DetalleSolicitudCotizacion").Rows.Count
End Sub