|
Hola Marcos y Onti
Ayer no accedí al Foro por eso no pude probar los resultados que me ofrecieron, de todas formas les agradezco que se hayan ocupado en ayudarme, ya que seguramente el tiempo no les alcanza para atender los multiples problemas que presentamos los menos experimentados.
Este es el extenso codigo que elaboré, primero inserté una sección en el Formulario para apareciera en un Combo los archivos.dbf que estan en una carpeta determinada, luego puse dentro de un ciclo un label que toma el nombre de los itenms de Combo y despues la sentencia SQL cullo resultado se graba en qrlabels (no encontré otra forma).
for zz:=0 to can do
Label2.Caption:=ComboBox1.Items[ComboBox1.ItemIndex];
begin
Query4.SQL.Clear; Query4.SQL.Add('Select * From ' + Label2.caption);
Query4.SQL.Add('where ID_IND = "180"'); Query4.Open;
Form4.qrlabel169.Caption:=(Query4.Fields[0].Text); if Form4.qrlabel169.Caption='' then Form4.qrlabel169.Caption:='0';
Form4.qrlabel167.Caption:=(Form4.qrlabel169.Caption);
aa:=Form4.qrlabel22.Caption; ab:=Form4.qrlabel167.Caption; ba:=strtofloat(aa); bb:=strtofloat(ab);
l:=ba+bb; Form4.qrlabel22.Caption:=floattostr(l); Form4.qrlabel168.Caption:=(Form4.qrlabel170.Caption);
end;
Gracias por adelantado.
|