combo box -> campo calculado

[[Caral]]

Hola
Veamos si logro entender esto.
Tienes una tabla en la que hay dos campos, nombre y apellido.
Tienes un combobox en el que tienes una serie de items para elegir, entre ellos Nombre y apellido.
Este combobox es el que genera el filtro.
Si estoy bien hasta aqui me dices.
Ahora pregunto: donde vas a presentar ese filtro?.
Saludos

[peccatum]

Empezado por Caral

Este combobox es el que genera el filtro.

no es un filtro...

Tengo un grid donde tengo los datos de las personas. Esta tiene varios campos: nombre, apellido, dni, etcétera (los campos de la tabla en la base de datos)... solo que al usuario no le muestro los campos 'reales' sino campos calculados. En el evento 'onCalcFields' del dataset tengo la asignación que puse mas arriba.

Lo que hace el combo es controlar el ordenamiento, en el evento 'onChange' lo que hace es agregar la linea 'order by <itemdelcombo.text> asc' al dataset. Esto funciona bien si no pongo el condicional en el evento onCalcFields que hace una comprobación como la siguiente:

if combobox.text = nombres then
dataset1[calcfield] := dataset1 [nombre] + dataset1[apellido]
else dataset1[calcfield] := dataset1[APELLIDO] + dataset1[nombre];

se entiende?

gracias

edit: calcfield es lo que le presento al usuario las otras columnas tienen la propiedad Visible a false ...

[keyboy]

Quizá debas detallar más tu código. A mi me funciona bien usando MySQL y componentes MyDAC:

Código Delphi [-]
procedure TForm1.MyQuery1CalcFields(DataSet: TDataSet);
begin
  if ComboBox1.ItemIndex = 0 then
    DataSet['nombre_completo'] := DataSet['apellido'] + ', ' + DataSet['nombre']
  else
    DataSet['nombre_completo'] := DataSet['nombre'] + ', ' + DataSet['apellido']
end;

Y en el evento OnChange del combo:

Código Delphi [-]
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if ComboBox1.ItemIndex = 0 then
    MyQuery1.IndexFieldNames := 'apellido'
  else
    MyQuery1.IndexFieldNames := 'nombre';
end;

Con esto, se ordena y el campo calculado cambia como se espera.

Bye

[[Caral]]

Hola
Mas que claro keyboy.
Gracias por la explicacion, creo que no debe haber mas dudas.
El concepto del combobox es lo que pretendía hacer, pero te salio mejor a ti, maestro al fin.
Saludos

[peccatum]

Grande KeyBoy siguiendo tu ejemplo funcionó...

Lo que si, no uso la parte de codigo que pusiste en combobox.onchange, para especificar el ordenamiento ahí dentro yo agrego una linea al SelectSQL del DataSet:

Dataset1.SelectSQL.Strings[2]:='Order by '+ Combobox1.Text + ' asc';

¿Es indiferente hacerlo de cualquiera de las dos formas?

Mil gracias a todos y saludos....

[peccatum]

en un principio no me funcionó por que al cerrar y abrir el dataset para agregar la linea 'order by...' se pierden los parámetros (por lo menos en los componentes que utilizo Mercury Data Objets)

ese era el problema jeje, hoy me dí cuenta de ello

edit: ya se... me pasa por no mostrar adecuadamente el código :sonrojado2: