Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   No Se ¡?¡?¡?¡? (https://www.clubdelphi.com/foros/showthread.php?t=45089)

Lynn 22-06-2007 06:42:51

No Se ¡?¡?¡?¡?
 
Bueno mi Problema es este quiero tomar el valor de un registro completo y colocarlos en unas cajas de texto cada registro en una caja de Texto (TEdit) y no se como hacerlo osea tengo esto y no se como colocarlos ademas le puse la opcion DblClick para solo selecionar el registro del DBGrid y no me sale en la primera Linea solo coloca el nombre de la columna (Campo) ID o Nombre en la caja de texto
pero en la Segunda Linea sale un error que dice List index out of Bounds(0)
y no se pone nada en la caja de texto quiera una ayuda porfavor
Fvennta es otro Formulario
buena cada opcion la probe por separado

procedure TFBusca.DBGrid1DblClick(Sender: TObject);
begin
Fventa.Edit1.Text:= DBGrid1.Columns[dbgrid1.SelectedIndex].FieldName;
Fventa.Edit1.Text:= DBGrid1.SelectedRows[dbgrid1.SelectedIndex]
end;

axesys 22-06-2007 07:41:04

Intenta con

Fventa.Edit1.Text:= DBGrid1.Columns[Pred(dbgrid1.SelectedIndex)].FieldName;

Lepe 22-06-2007 10:49:43

Lynn si encierras tu código delphi entre estas etiquetas especiales:

[ delphi]

tu codigo

[ / delphi]

(sin los espacios entre corchetes) te ahorrarás darle color a las letras ;).

Para tu duda, olvídate del dbgrid y extrae los datos desde el Dataset conectado al grid. Al seleccionar en la rejilla un registro, se está seleccionando también en el dataset.

Ten cuidado, ya que el usuario puede dar un doble clic en un lugar vacío del grid y entonces, no hay registro activo ni columna.
Código Delphi [-]
  edit1.text := datasetClientesIdCliente.AsInteger;
  edit2.text := datasetCliente.Fieldbyname('direccion').AsString;

Saludos

Lynn 22-06-2007 21:31:20

Todavia
 
aun no puedo solucionar mi problema quien me da una mano con esto

eduarcol 22-06-2007 21:39:25

Probastes la idea de LEPE??? eso debe funcionar perfectamente

Lepe 22-06-2007 21:41:49

¿no puedes acceder al Dataset del grid, ya sea TQuery, TTable?

El grid, solo es la representación gráfica del Dataset, todos los datos los tienes en el TQuery/TTable al que está ligado el grid.

Si quieres hacer un puente.... también puedes:
Código Delphi [-]
Grid1.datasource.dataset.Fieldbyname('nombrecampo').asXXXX
Es dar una vuelta para volver donde mismo, pero bueno, es otra forma.

Saludos

egostar 22-06-2007 21:43:54

Bueno, tal vez el problema es que te de un error si lo haces como lo dijo Lepe, una pequeña distracción de su parte,:rolleyes::rolleyes: o tal vez para que tú tengas algo que hacer:cool::)

Cita:

Empezado por Lepe
Código Delphi [-]
  edit1.text := datasetClientesIdCliente.AsInteger;
  edit2.text := datasetCliente.Fieldbyname('direccion').AsString;

Sería mejor así

Código Delphi [-]
  edit1.text := datasetClientesIdCliente.AsString;
  edit2.text := datasetCliente.Fieldbyname('direccion').AsString;

o así

Código Delphi [-]
 
  edit1.text := InttoStr(datasetClientesIdCliente.AsInteger);
  edit2.text := datasetCliente.Fieldbyname('direccion').AsString;

Salud OS.

Lynn 22-06-2007 22:35:38

Una Foto
 
Bueno aqui les dejo mi Duda ojala que con esto se pueda solucionar mis problemas Grid

http://es.geocities.com/miweb2006/Ayuda.JPG

eduarcol 22-06-2007 22:53:55

Bueno hubieramos comenzado por alli

en este caso lo que tendrias qe hacer es recuperar un valor dejado en una variable en el formulario de busqueda antes de destruirlo por supuesto este formulario debe tratarse como modal, y la variable debe contener el valor del campo clave.

o sea por ejemplo:

en FBuscaUser declara una variable del mismo tipo que el campo clave, luego en el evento doble clik del Grid programa algo asi

mivariable := MiTabla.FieldbyName(CampoClave).AsString

Ahora luego que se ejecute el formulario de busqueda tienes una variable con el valor del campo clave del registro que deseas buscar para realizar una nueva busqueda

PD: A fin de cuenta lo que explicastes en el primer post no tiene nada que ver con lo que resulto

Lynn 22-06-2007 23:07:19

Proyect
 
bueno ya no se que hacer mas asi que le dejo mi proyectito aver si me dan una mano por mientras
http://es.geocities.com/miweb2006/proforma.zip

Lepe 23-06-2007 04:21:05

El código es simple, pero si no entiendes nuestras palabras... poco se puede hacer. Te recomiendo la cara oculta de delphi 4, avanzarás más rápido.

Código Delphi [-]
uses modulodatos;

// poner el nombre del cliente:
Fventa.edit1.text := modulodatos.adobus.Fieldbyname('RazonSocial').AsString;

Saludos

Lynn 23-06-2007 08:19:35

Gracias
 
Bueno Muchas Gracias Todos por su opinion y en especial ah egostar que me ayudo mucho con sus Codigos Pornto Subiere un Video de Como se Soluciono el Problema en este Mismo Tema


La franja horaria es GMT +2. Ahora son las 11:28:42.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi