Club Builder

[ZHAX1]

Tengo una consullta TQuery *q1, que contiene mis datos en el dbgrid, ahora hago una multiple seleccion (usando ctrl+click).
Usando la propierdad Filter de TQuery u otra cosa, ¿como puedo hacer que aparezcan filtrados solo los que tengo seleccionados sin hacer un OR extremadamente largo?

Ya de paso hay algún codigo que sirva para cualquier dbgrid que permita hacer una seleccion múltiple con la tecla mayúsculas en cualquier dbgrid. Gracias.

[hetorsc]

Pero que es lo que quieres hacer exactamente?
Realizar una consulta SQL a la base de datos con los seleccionados?

[ZHAX1]

Lo que necesito es que me quede una nueva vista al pulsar el botón filtrar selección y yo poder hacer operaciones solo con los datos que me quedan.

imaginemos que tengo 10 filas, y selecciono 2, y le doy al botón filtrar seleccion, lo que yo haría es recorrer las filas seleccionadas, ir leyendo el campo clave y añadiendolo al Filter del TQuery.

Por ejemplo tengo 10 filas con un campo que se llama id.

Id nombre

1 pepe

2 juan

3 ....
.
.
.
10 carlos

si seleccionase el 10 y el 3, añadiría en filter Id = 3 OR Id = 10 y luego pongo Filtered = true;

Pero no creo que sea una solución muy elegante y en el caso de que seleccione muchas filas, imaginemos 100 ORs todos juntitos igual revienta.

¿Alguna otra solución? Recalco mi necesidad de poder seleccionar varias filas con mayusculas en lugar de ir de 1 en 1 con control.

Gracias y un Saludo.

[ZHAX1]

[Angel]

No acabo de comprender que quieres hacer. De todas formas, yo me plantearía utilizar un ListView en modo vsReport y con la casilla de selección activada.
_________________
Un saludo

Necesitamos tu ayuda: Envía AI al 27595 (Coste 1,20 euros + IVA)

[ZHAX1]

jur, que mal me debo explicar, ya no se como explicarlo de otra manera, se hace una seleccion multiple de la manera que sea y quiero que se visualicen solo los seleccionados, el resto desaparecerían.

[ZHAX1]

Hice una funcioncita por si a alguien le sirve de algo y para que se me entiencda lo que necesito, esta función funciona bien y para cualquier base de datos. No se cuantos ORs puede soportar Filter sin que muera...

Si alguien tiene un solución mejor.

[Angel]

¡Ah! Ahora sí que entiendo lo que quieres. Yo lo haría así:

1. Pon un TListView y, si quieres, un TButton para activa/desactivar el filtro. En el TListView pon la propiedad Checkboxes a true y ViewStyle en vsReport. Pon el botón, si lo has usado, en Enabled = false.
2. Ejecuta el query que tengas. Supongamos que es algo así:


Cita:

SELECT Codigo, Apellidos, Nombre FROM Personas


Suponemos el campo Codigo es único, y por lo tanto la clave.
3. Rellena el TListView:


Código:

TListColumn *pColumn; TListItem *pItem; ListView1->Columns->Clear(); ListView1->Items->Clear(); pColumn = ListView1->Columns->Add(); pColumn->Caption = "Codigo"; pColumn = ListView1->Columns->Add(); pColumn->Caption = "Apellidos"; pColumn = ListView1->Columns->Add(); pColumn->Caption = "Nombre"; while (!query->Eof) {      pItem = ListView1->Items->Add();      pItem->Caption = query->FieldByName("Codigo")->AsString;      pItem->SubItems->Add(query->FieldByName("Apellidos")->AsString;      pItem->SubItems->Add(query->FieldByName("Nombre")->AsString;      query->Next(); }


4. En el evento OnClick del TListView:


Código:

Button1->enabled = false; for (int nItem = 0; nItem <ListView1>Items->Count; nItem ++)      if (ListView1->Items->Item[nItem]->Checked)      {           Button1->Enabled = true;           break;      }


5. En el OnClick del botón, por ejemplo:


Código:

AnsiString cCadena; for (int nItem = 0; nItem <ListView1>Items->Count; nItem ++)      if (ListView1->Items->Item[nItem]->Checked)           cCadena = cCadena + "'" + ListView1->Items->Item[nItem]->Caption + "',"; query->Close(); query->SQL->Text = "SELECT Codigo, Apellidos, Nombre FROM Personas WHERE Codigo "; if (cCadena.Pos(",") == cCadena.LastDelimiter(","))      query->SQL->Text = query->SQL->Text + "= " + cCadena.SubString(1, cCadena.LastDelimiter(",") - 1); else      query->SQL->Text = query->SQL->Text + "IN (" + cCadena.SubString(1, cCadena.LastDelimiter(",") - 1) + ")"; query->Open();


Y vuelta a cargar el ListView (Paso 3)

Espero que te valga o al menos te dé una idea.
_________________
Un saludo

Necesitamos tu ayuda: Envía AI al 27595 (Coste 1,20 euros + IVA)

[ZHAX1]

Gracias, nunca usé los tlistview, pero los probaré a ver que tal con este codigo.

[Angel]

¡A mandar! Aquí me tienes para cualquier (o casi) duda. . Se me olvidaba: la propiedad multiselect del ListView si suas Checkboxes da igual como esté.
_________________
Un saludo

Necesitamos tu ayuda: Envía AI al 27595 (Coste 1,20 euros + IVA)

[ZHAX1]