Item en dbgrid

[lmpadron]

Hola amigos

Pengo un DBGrid con varias columnas en una aplicacion. Tengo algunos valores en la propiedad PickList de algunas columnas. El problema es el siguiente, como puedo asignar uno de esos valores para que salga por defecto. En el caso de las columnas que no tienen PickList como puedo introducurles algun valor a traves del codigo ?

O sea algo similar a lo que hacemos con un Combobox


escojer el valor a mostrar por defecto

ComboBox1->ItemIndex = 4;

agregar un Item desde una BD

ComboBox1->Items->Add(ADOQuery1->FieldByName("campo")->AsString)

agregar un Item diractamente

ComboBox1->Items->Add("cualquier cosa")

Gracias de antemano

[ecfisa]

Hola impadron.

Te pongo un ejemplo de como agregar valores a PickList (TStrings) de determinada columna, por código.

...
 /* Agrega dos valores a la columna 2 */
  DBGrid1->Columns->Items[2]->PickList->Clear();
  DBGrid1->Columns->Items[2]->PickList->Add("Valor 1");
  DBGrid1->Columns->Items[2]->PickList->Add("Valor 2");
  /* Agrega valores 1 a 10 a la columna 0 */
  DBGrid1->Columns->Items[0]->PickList->Clear();
  for(int i=0; i< 10; i++)
   DBGrid1->Columns->Items[0]->PickList->Add(IntToStr(i+1));
...

Saludos.

[lmpadron]

muchas gracias ecfisa por tu ayuda en estos tres temas, pero el problema realmente esta en definir uno de estos valores que agregamos para que salga por defecto ya seleccionado, q el usuario no tenga que desplegar la lista y seleccionarlo.
El otro asunto es como poder introducir valores en una celda del dbgrid, o sea escribirle el valor directamente como si fuera un edit

Edit1->Text = "un texto";

[ecfisa]

Hola impadrón.

pero el problema realmente esta en definir uno de estos valores que agregamos para que salga por defecto

No contesté esa pregunta por que no conozco propiedad o función en la clase TStrings que permita eso, es decir algo similar a ItemIndex.
(que yo no conozca no quiere decir que no exista o se pueda ).

En cuanto a asignar un valor a una celda, no te olvides que el TDBGrid es como una "representación visual" de los datos que existen en un TDataSet, por lo que podrías hacer algo así:

  DBGrid1->DataSource->DataSet->Edit();
  DBGrid1->SelectedField->Value = "Valor 1";

Pero si das un ejemplo en concreto de lo que queres implementar, quizá podamos encontrar algo más adecuado.

Un saludo.

[lmpadron]

Empezado por ecfisa

Hola lmpadrón.


No contesté esa pregunta por que no conozco propiedad o función en la clase TStrings que permita eso, es decir algo similar a ItemIndex.
(que yo no conozca no quiere decir que no exista o se pueda ).

(...)

Pero si das un ejemplo en concreto de lo que queres implementar, quizá podamos encontrar algo más adecuado.

ADOQuery6->SQL->Clear();
        ADOQuery6->SQL->Add("SELECT distribucion FROM distribucion WHERE proceso = '" + id_proceso +"'");
        ADOQuery6->Open();

        while (!ADOQuery6->Eof)
        {
                DBGrid1->Columns->Items[4]->PickList->Add(ADOQuery6->FieldByName("distribucion")->Text);
                ADOQuery6->Next();
        }

Aqui ya tego los valores en el PickList ahora lo que quiciera es ver si puedo poner uno de ellos que ya salga por defecto seleccionado.

Con respecto a lo de asignar un valor a una celda, bueno voy a probar con la idea que me acabas de dara ver que tal resulta.

Saludos y Muchas Gracias

[[maeyanes]]

Hola...

Los TDataSet tienen un evento llamado OnNewRecord, el cual te puede servir para inicializar valores en un registro nuevo. Esto te lo comento por que me imagino que quieres que al insertar un nuevo registro en la rejilla el campo que cuenta con el PickList ya tenga seleccionado un valor.


Saludos...

[lmpadron]

Empezado por maeyanes

Hola...

Los TDataSet tienen un evento llamado OnNewRecord, el cual te puede servir para inicializar valores en un registro nuevo. Esto te lo comento por que me imagino que quieres que al insertar un nuevo registro en la rejilla el campo que cuenta con el PickList ya tenga seleccionado un valor.


Saludos...

Exactamente, jejeje esa es la idea, me podrias postear aolgun ejemplo que pueda ser de utilidad

gracias

[[maeyanes]]

Hola...

Pues básicamente la idea es la misma que te mencionó ecfisa, solamente que tienes que hacerlo desde el evento que te comenté:

Código Delphi [-]
// Código en Delphi pero fácilmente traducible a C++
procedure TForm1.DataSetOnNewRecord(DataSet: TDataSet);
begin
  DataSet.FieldByName('CampoX').AsString = 'Valor predeterminado';
end;

Saludos...

[lmpadron]

Empezado por maeyanes

Código Delphi [-]
// Código en Delphi pero fácilmente traducible a C++
procedure TForm1.DataSetOnNewRecord(DataSet: TDataSet);
begin
  DataSet.FieldByName('CampoX').AsString = 'Valor predeterminado';
end;

Saludos...

Gracias a ambos por la ayuda.


Creo que la traduccion es algo asi no ?

void __fastcall TForm2::ADOQuery1NewRecord(TDataSet *DataSet)
{
      ADOQuery1->FieldByName("campo")->AsString = "Valor";
}

[ecfisa]

Creo que la traduccion es algo asi no ?

Correcto; o con el mismo resultado:

   DBGrid1->DataSource->DataSet->FieldByName("campo")->AsString = "Valor";

Saludos.

[[maeyanes]]

Hola...

Empezado por ecfisa

Correcto; o con el mismo resultado:

   DBGrid1->DataSource->DataSet->FieldByName("campo")->AsString = "Valor";

Saludos.

Yo no usaría esa forma dentro de un evento OnNewRecord. Es más, aún de la forma en que lo puse no es del todo "segura". Lo ideal sería algo como:

void __fastcall TForm2::ADOQuery1NewRecord(TDataSet *DataSet)
{
  DataSet->FieldByName("campo")->AsString = "Valor";
}

Y de esta forma nos aseguramos que el campo que recibe el valor predeterminado pertenece al DataSet que lanza el evento.



Saludos...

[ecfisa]

Y de esta forma nos aseguramos que el campo que recibe el valor predeterminado pertenece al DataSet que lanza el evento.

Es cierto, de ese modo se evita cualquier posible equivocación.

Saludos.