Ver Mensaje Individual
  #2 (permalink)  
Antiguo 06/02/2011, 16:26
netsistemas
 
Fecha de Ingreso: enero-2007
Mensajes: 27
Antigüedad: 17 años, 9 meses
Puntos: 0
Respuesta: Ayuda a terminar mi busqueda vb.net

Te adjunto parte de mi código en un proyecto del cual puedes tomas ideas.
Veras cosas raras (como un OR TRUE).Eso lo tengo por temas de depuración, pero supongo que sabras ver lo interesante. Ahora se entiende mucho mejor tu pregunta.

Private Sub BajarDatosDeGridADetalle()
' Dim Valor As String
' Dim Col As Integer = Me.Grid.CurrentCell.ColumnIndex
' For Each row As DataGridViewRow In Me.Grid.Rows
' Valor = row.Cells(Col).Value
' Next
Try

If MisSeguimientos Or True Then
If Grid.Rows.Count = 0 Then
LimpiarTXT()
Else
SetTabla(Grid.CurrentRow.Cells("Tabla").Value & "")
'para forzar el change y así la busquda
txtCodigo.Text = ""
txtCodigo.Text = Grid.CurrentRow.Cells("ValorRegistro").Value & ""



lblResumen.Tag = Grid.CurrentRow.Cells("Registro").Value & ""
txtResumen.Text = Grid.CurrentRow.Cells("Resumen").Value & ""
txtAsunto.Text = Grid.CurrentRow.Cells("Asunto").Value & ""
'ComboEstablecerValor(ComboAsuntos, Grid.CurrentRow.Cells("TipoAsunto").Value & "")
ComboAsuntos.Text = Grid.CurrentRow.Cells("TipoAsunto").Value & ""


'ComboEstablecerValor(ComboAcciones, Grid.CurrentRow.Cells("TipoAccion").Value & "")
ComboAcciones.Text = Grid.CurrentRow.Cells("TipoAccion").Value & ""
Dim FP As String
FP = Grid.CurrentRow.Cells("FechaPrevista").Value & ""
If FP = "" Then
FechaPrevisto.Value = Now
FechaPrevisto.Checked = False
Else
FechaPrevisto.Value = FP
FechaPrevisto.Checked = True
End If
Dim St As String
St = Grid.CurrentRow.Cells("UsuarioAtiende").Value & ""
ComboUsuarios.Text = St
txtFichero.Text = Grid.CurrentRow.Cells("Fichero").Value & ""


FP = Grid.CurrentRow.Cells("FechaCierre").Value & ""
If FP = "" Then
FechaCierre.Value = Now
Else
FechaCierre.Value = FP
End If


FechaCierre.Checked = clsUtiles.ToBoolean(Grid.CurrentRow.Cells("Cerrado ").Value)

End If
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
cmdGrabar.Visible = False
End Sub