FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Grid y los datos...
Me gustaria saber que codigo puedo poner en el evento onclick de una rejilla para que, se pulse donde se pulse, me muestre en un edit la clave primaria de la fila seleccionada.
Por ejemplo teniendo: - Codigo-Nombre-Apellidos-DNI Se pulsa en cualquier celda y que aparezca el Codigo de la fila donde se ha pulsado. Gracias!!
__________________
Si me ves durmiendo no me despiertes, podría estar soñando que soy libre. |
#2
|
|||
|
|||
Hola:
¿Y no te sirve colocar un TDBEdit ligado a ese campo código? Pulses donde pulses te aparecerá el valor correcto.
__________________
Guía de Estilo |
#3
|
||||
|
||||
el problema esta en que el grid no siempre tiene el mismo data source,,, por lo tanto... no me sirve. ¡¡ojala y fuera con el mismo data souerce!!
__________________
Si me ves durmiendo no me despiertes, podría estar soñando que soy libre. |
#4
|
|||
|
|||
¿Y no hay ninguna posibilidad de que cuando cambias el DataSource al DBGrid, hagas lo mismo con el TDBEdit?
Ten en cuenta que el DBGrid que viene con Delphi no trae un evento OnRowChanged, de modo que para saber cuándo se ha cambiado de registro, habría que acceder al DataSource ligado al DBGrid, con lo cual, si conocemos ese dato, lo normal es enlazarlo al TDBEdit en cuanto podamos y olvidarnos de interceptar más eventos. Sí que podrías usar el evento OnCellClick, pero no se actualizaría el TEdit cuando el usuario se moviera desde el teclado, por ejemplo. En cualquier caso, el código sería: Código:
procedure OnEvento; begin if (DBGrid.DataSource <> nil) AND (DBGrid.DataSource.DataSet <> nil) then Edit1.Text := DBGrid.DataSource.DataSet.FieldByName('Codigo').AsString; end;
__________________
Guía de Estilo |
#5
|
||||
|
||||
Prueba este código y verás como te funciona:
Código:
procedure TForm1.DBGrid1CellClick(Column: TColumn); begin Try edit1.text:=(Dbgrid1).Columns[TstringGrid(Dbgrid1).col -1 ].field.asString; Except ShowMessage('No Puedorrrrr'); end end; |
#6
|
||||
|
||||
Si el dataset del dbgrid no es siempre el mismo, el DataSource no tiene por que cambiar.
Podes ligar el dbGrid y un dbEdit a un mismo DataSource, y luego cambiar el DataSet del DataSource. Me explique??? Hasta luego.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
#7
|
||||
|
||||
Chico, la respuesta que mas se acerca a mis objetivos es la tuya, lo que pasa que con el codigo que me has pasado, salen los datos de la celda en la que haces click, y yo quiero que salga siempre los datos de otra celda que estan, eso si, en la misma fila que el que esta pulsado... Que enreversado,,, sorry
Y gracias a los demas por responder!!! Que seria de mi sin vosotros... Saludos, cristian.
__________________
Si me ves durmiendo no me despiertes, podría estar soñando que soy libre. |
#8
|
||||
|
||||
Eso es más facil, pero tienes que saber de antemano que columna es.
Código:
procedure TForm1.DBGrid1CellClick(Column: TColumn); Var MiCol:Integer; begin MiCol:=3; Try edit1.text:=Dbgrid1.Columns[MiCol].field.AsString; Except ShowMessage('No Puedorrrrr'); end end; |
#9
|
||||
|
||||
Eso es lo que queria!!!
Gracias tio, porque no te tengo aqui, si no te daba un morreo jajaja
__________________
Si me ves durmiendo no me despiertes, podría estar soñando que soy libre. |
#10
|
|||
|
|||
Hay de todo en las respuestas que veo pero sobre todo cierta confusión con lo que son los datos y lo que es su visualizacion. En fin, para simplificar
procedure TForm1.DbGrid1Click; var ds : TDataset; begin try ds := dbGrid1.Datasource.Dataset; Label1.Caption := 'El registro activo es : Nombre-'+ds.FieldByName('Nombre').AsString+' Apellidos-'+ds.FieldByName('Apellidos').AsString; except Label1.Caption := 'No hay registro activo'; end; end; Solo accedemos a la grid para tomar una referencia a su dataset, aunque esto podria evitarse, y una vez en este punto nos olvidamos de la grid y accedemos al dataset y a los campos que nos interesen. Saludos |
#11
|
|||
|
|||
Hola:
Todo lo que se ha dicho está muy bien, pero entiendo, aunque SuperHopi no lo diga así en su pregunta, que el Edit debe cambiar cuando se cambia el registro activo, sea mediante un Click con el Mouse, o desde el teclado, o desde otro proceso. Si no se trata de esto sino que debe ser sólo en el evento OnClick, entonces todo lo dicho me parece correcto, y no hace falta que sigáis leyendo este mensaje, y si no, creo que se debe tomar en serio lo de usar un TDBEdit (al que pasemos el DataSource del Grid, o como dice jachguate mantener el mismo DataSource y cambiar sólo su DataSet cuando proceda). O bien, si se opta por un TEdit a secas, tratar de interceptar el evento del DataSet (OnScroll) o del DataSource (OnDataChange). El problema de usar el OnScroll es que éste suele estar en el DataModule y no es recomendable hacer nada desde allí que afecte a la visualización. Para estos casos, suelo colocar un TDataSource adrede en el Form, enlazado a aquel DataSet, y desde este DataSource controlo el cambio de registro: Código:
procedure TForm1.DataSource1DataChange (Sender: TObject; Field: TField); begin if Field = nil then // cambio de registro Edit1.Text := TDataSource(Sender).DataSet.FieldByName('Codigo').AsString; end;
__________________
Guía de Estilo |
|
|
|