Dbgrid & Memo

[[Héctor Randolph]]

Hola Jymy!

Revisé el código que adjuntaste, sin embargo no he puedo ayudare a resolver el error que comentas porque en el form tienes una tabla que hace referencia a un Alias y obviamente no adjuntaste las bases de datos.

Espero que no te moleste si publicó parte de tu código de ejemplo, es tan sólo para hacer algunas recomendaciones.

Código Delphi [-]
var
  Form1: TForm1;
  Text : string;
  lst : TStrings;

implementation

{$R *.dfm}

procedure TForm1.Table1LARGOGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  Text:= Trim (Sender.asString);
  //lst := TStringList.Create;
  //lst.Add(Sender.asString);
  //DBGrid1.Columns[0].PickList := lst;
end;

procedure TForm1.Table1LARGOSetText(Sender: TField; const Text: String);
begin
  Sender.AsString := Text;
end;

procedure TForm1.DBGrid1EditButtonClick(Sender: TObject);
begin
  //DBGrid1.Columns[0].PickList := lst;
  //DBMemo1.Visible := true;
end;

En primer lugar, es correcto utilizar el evento OnGetText para mostrar el contenido del campo y evitar que aparezca el texto [Memo] en el DBGrid, pero no considero necesario utilizar el evento OnSetText.

Otra recomendación es que para editar el campo memo, utilices otra ventana que se mostrará cuando el usuario pulse sobre botón de edición en la celda del DBGrid.

Por ejemplo en el evento OnEditButtonClick puedes hacer algo como esto:

Código Delphi [-]
procedure TForm1.DBGrid1EditButtonClick(Sender: TObject);
begin
  with (Sender as TDBGrid) do
    if Columns [SelectedIndex].FieldName='LARGO' then
      with TForm2.Create(Self) do
      try
        ShowModal;//Muestra el Form2 que contiene el campo memo
      finally
        Free;
      end;
end;

De esta forma si la columna seleccionada está ligada con el campo que se llama 'LARGO', entonces abres otra ventana (Form2) con el campo memo que quieres editar.

*********************************************************
Por otra parte la propiedad PickList sirve para mostrar una lista desplegable dentro de una celda del DBGrid, es como un ListBox en donde puedes agregar elementos para que el usuario los seleccione al momento de editar la celda.

Un ejemplo:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  DBGrid1.Columns[0].ButtonStyle:=cbsAuto;
  DBGrid1.Columns[0].PickList.Add('Elemento 1');
  DBGrid1.Columns[0].PickList.Add('Elemento 2');
  DBGrid1.Columns[0].PickList.Add('Elemento 3');
end;

Esto mostrará una lista desplegable en la primera columna del DBGrid.

Espero que se haya aclarado algo, un saludo.

[jymy788]

Te comento.... No adjunté la tabla de la base de datos porque supuse que se la podrían replicar, o crear una nueva, se trata de una tabla de oracle con dos campos, 'corto' (varchar2(80)) y 'largo' (Varchar2(500)).

Mira a ver si ahora puedes replicar el error, haciendo correr el programa please, porque vale, muchas visitas al hilo, pero nadie me ha dado una solución o consejo.

En cuanto a tus anotaciones de tu respuesta, tienes razón en todo. El SetText lo utilizo para hacer pruebas tontas, y lo de sacar una ventanita a parte..... ya sé que es la mejor solución pero si eso se lo explicas tu a mi jefe ok? jejeje. El tiene razón, la verdad y coñas a parte, en este caso nos convendría no tener que sacar una ventanita a parte.

Un saludo.

[[Héctor Randolph]]

Hola jymy!

Te comentó que efectivamente habia creado una tabla con dos campos para tratar de replicar el error, pero con mi tabla funciona correctamente. Lo único que me brinca un poco es que en las propiedades del campo "LARGO" en la tabla que colocaste en el Form, aparece la clase de campo como [fkInternalCalc] y debería aparecer [fkData].

Bueno ahora que has dado más información trataré de ayudarte a resolverlo, Con respecto al asunto de editar el memo sin abrir otra ventana, en un principio me confundí porque creí que el propósito de colocar el botón de edición en la celda era para abrir el campo por separado. Entonces creo que debo retractarme, este caso si tiene sentido usar OnSetText como lo habias puesto para editar el campo directamente en el DBGrid (una dispulpa por sugerir cambiar algo que era correcto).

Entiendo perfectamente el asunto de los caprichos de los jefes, a mi me ocurre todo el tiempo.

Un saludo y seguimos en contacto.

[jymy788]

Buenas de nuevo Héctor.

Gracías por tu respuesta... este componente es una "mierda" para estos casos, después de romperte la cabeza para que no aparezca el horrible [MEMO], y conseguirlo, cuando quieres grabar te da ese error asqueroso e inexplicable....

Además, para terminar de quemarme, aunque da el error de "invalid rowid" el muy capullo del BDE (creo que es el culpable) graba los cambios !!!!!!

En fin, inexplicable, a ver si se te ocurre algo más.

Pd.- Voy a probar con el RXDBGrid (de las rusas) que creo haber leído que solucionan varios problemas con Memos, mientras tanto, lo dicho, cualquier cosa que se te ocurra....

Gracias !!!