No Se ¡?¡?¡?¡?

[Lynn]

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]

Intenta con

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

[[Lepe]]

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]

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

[[eduarcol]]

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

[[Lepe]]

¿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]]

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, o tal vez para que tú tengas algo que hacer

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]

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

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

[[eduarcol]]

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]

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]]

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]

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