Si que te metiste en un lio je je je
En realidad no es tan dificil.. por que no piensas que el mundo tiene 3 dimensiones y que la computadora la vemos de dos... weno pues usemos la segunda dimension de la compu.. osease a lo ancho.. je je je (ya se recibire criticas por el comentario, pero ahi va la idea..)
Primero no debes de crear tantos campos como nombres alla...por que puede tronar, puede tronar.. creo que su limite es de 255 campos..(si estoy mal ahi me avizan)
Por que no mejor creas un campo Blob...
Ordenas primero tu tabla x Numero de tarjeta y nombre para que salgan ordenaditos
despues con un simple While... hagamoslo..
pones un TListBox
Código:
Procedure....
Var
Tar : Integer;
Begin
Tar := 0;
ListBox1.Items.Clear;
While Not Tabla.EoF Do
Begin
//aqui supongo que tu nombre del campo es NumTar ahi lo cambias
If Tabla.FieldByname('NumTar').AsInteger <> Tar Then
Begin
//Primero metemos
If Tar <> 0 Then //por que luego luego va a querer meter y no podemos
//dejar eso por que esta vacio
Begin
//metemos a tu base
TablaTemp.Insert;
TablaTemp.fieldByName('NumTar').AsInteger := Tar;
TablaTem.FieldByName('Nombres').Assign(ListBox1.Items);
TablaTem.Post;
ListBox1.Items.Clear;
Tar := Tabla.FieldByname('NumTar').AsInteger;
End
Else
Tar := Tabla.FieldByname('NumTar').AsInteger;
ListBox1.Items.Add(Tabla.FieldByname('Nombre_Cliente').AsString);
End;
Tabla.Next;
End;
//Ahora aqui volvemos a meter por los sobrantes...
TablaTemp.Insert;
TablaTemp.fieldByName('NumTar').AsInteger := Tar;
TablaTem.FieldByName('Nombres').Assign(ListBox1.Items);
TablaTem.Post;
End;
Ya obtenemos lo que quisiste.. ahora que le quieres hacer...
Tus datos ahora los veras asi...
Código:
Campo Nombres
30 Juan Charrasqueado
Chuchita la Bolsearon
Juana
Perengana
Sultana (Como iba a faltar la famosisima)
35 Petra
Chana
El Peyote Asesino
.
.
.
Nada mas faltaria que les quieras hacer esos campos....pero ya puedes hacerles los que quieras
