FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Primera fila visible de un grid
Un Saludo a todos...
Al ver por medio de un dbgrid un dataset necesito cambiar la informacion de un registro cualquiera, volver a realizar el Query y localizar nuevamente la posicion del registro. todo esto lo hago pero tengo una pequeña molestia y es que el locate funciona desde el primer registro hasta el ultimo y asi al localisar esté queda en la mayoria de las ocaciones en la ultima y en ocaciones en la primer fila visible y yo necesito que esta fila quede justo donde se realizo el click. algo asi como esto Antes de editar_|Como me esta quedando normalmente_|como quiero que quede I 6 I__________|____ I 4 I ___________ I 7 I Dato Fin_ | ___ I 6 I I 7 I Dato Ini___|____ I 5 I ___________ I 8 I ________ | ___ I 7 I Dato Fin I 8 I__________|____ I 6 I ___________ I 9 I ________ | ___ I 8 I I 9 I__________|____ I 7 I Dato Fin____ I10I ________ | ___ I 9 I Cordial Saludo |
#2
|
||||
|
||||
Ordena la consulta por un campo que NO VA A CAMBIAR, y despues establece TopRow
Cita:
|
#3
|
||||
|
||||
TopRow??
Cita:
y:= DBGAgenda.TopRow; // DBGAgenda es el nombre delDBGrid que uso |
#4
|
||||
|
||||
No sé si será algo como esto lo que quieres?
Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
#5
|
||||
|
||||
Y ¿por qué debes hacer nuevamente la consulta? ¿No sirve poner la propiedad RequestLive del Query en true?
Por cierto Marcos, no quiero ponerme pesado pero te recuerdo el hilo problemas la hacer un cast de un TStringGrid(DBGrid). // Saludos |
#6
|
||||
|
||||
Román cuando contesté a este hilo, sabía que me ibas a responder de esta manera, y tienes razón.
La respuesta viene enfocada de la siguiente forma, algo sencillo y que funcione y resuelva el problema, teniendo en cuenta que esto sería un resultado final, nadie va a derivar nada más de este código, solamente lo va a mantener quien lo hizo. Ahora bien, lo que tu apuntas, de acuerdo, es una auténtica aberración moldear un objeto con un molde de otro del cual no desciende. Conclusión final, si quieres que además de que funcione siga una ortodoxia y no utilizar este "truco sucio", debes de hacer lo que dice Román. Mi solución aunque funciona, en un examen, tendría un 0. Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
Última edición por marcoszorrilla fecha: 07-11-2004 a las 12:20:10. |
#7
|
||||
|
||||
RonPablo, lamento mi confusión, tienes toda la razón, TopRow viene para un TCustomGrid, no para el Dbgrid.
Puedes usar los comentarios de los consagrados Marcos Zorrilla o Roman para tu propósito. Como alternativa al DBGrid te puedo comentar el RXdbGrid de la biblioteca RxLib, ese si permite saber en que fila y columna estas situado, y haciendo un pequeño truco, puedes saber que hay en cada celda sin tener que acceder a la BD. Puedes bajarlo de www.clubdelphi.com/users/cadetill si estas interesado. Saludos |
#8
|
||||
|
||||
RequestLive no lo encuentro en IBQuery
Hola y primero que todo quiero agradecer a Roman, Lepe y Marcoszorrilla por los posts, han sido muy ilustrantes.
Ahora Cita:
Esta propiedad solo la encuentro en TQuery pero en IBQuery no lo encuentro... y como tal el IBQuery es el que uso en mi aplicación. Pero me gustaría hacerlo mejor por el lado que apunta roman y no haciendo el cast (el cast me parece una forma muy ingeniosa, pero no quiero dejar posibilidades de error) Ahora como tal el procedimiento de inserción lo hago en un Query distinto al Query de consulta el cual mira sobre un procedimiento almacenado donde mando 5 parámetros y para actualizar la información lo que hago es poner en false y luego en true la propiedad active… Con respecto a descargar un componente es otra posibilidad que estoy mirando. |
#9
|
||||
|
||||
Cita:
y hacer el moldeo con ella. El moldeo así hecho cumple todos los requisitos. Sin embargo siempre tiene uno que tener en consideración el por qué se mantienen protegidas ciertas propiedades. Por ejemplo, en el caso de Row, el problema es que el DBGrid es en realidad una rejilla virtual que solo mantiene las filas que en un momento dado se muestran al usuario (las que caen en el control visual). Conforme nos desplazamos por la rejilla, la componente va pidiendo los datos al dataset que la alimenta. Así, Row sólo será válido para valores entre 0 y 14 (suponiendo que 14 son las filas que simultáneamente caben en la rejilla). // Saludos |
#10
|
||||
|
||||
Muchas gracias
Bueno... que alegria ya me dio aplique la foma de hacer el cast que me indico Roman aunque no puede asignar la columna asi que busque una forma de hacer esto y pues lo publico a continucacion...
Espero que sea de utilidad para otras personas... Y nuevamente gracias a todos por las respuestas que me dieron Código:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, IBDatabase, IBCustomDataSet, IBTable; type TMiDBGrid = class(TDBGrid) // Defino la clase que usare Public { Las propiedades que necesito } property topRow; property Row; end; type TForm1 = class(TForm) IBTable1: TIBTable; IBDatabase1: TIBDatabase; IBTransaction1: TIBTransaction; DataSource1: TDataSource; DBGrid1: TDBGrid; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; MiDBGrid : TMiDBGrid; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var i, NumeroFilas, Fila : Integer; encontrar : string; begin DBGrid1.DataSource.DataSet.DisableControls; NumeroFilas:= TMiDBGrid(DBGrid1).RowCount; // Aquí realizo el cast para // encontrar el numero de filas Fila:= TMiDBGrid(DBGrid1).Row; // Aquí realizo el cast // encontrar la fila actual for i:=1 to Fila -1 do DBGrid1.DataSource.DataSet.Prior; encontrar:= TMiDBGrid(DBGrid1).Fields[0].Text; IBTable1.Active:= False; IBTable1.Active:= True; DBGrid1.DataSource.DataSet.Locate('IDANAMNESIS', encontrar, [loPartialKey]); for i:=1 to NumeroFilas -2 do DBGrid1.DataSource.DataSet.Next; for i:=1 to NumeroFilas - Fila - 1 do DBGrid1.DataSource.DataSet.Prior; DBGrid1.DataSource.DataSet.EnableControls; end; end. |
|
|
|