ler um arquivo do excel com v�rias colunas e gerar filtros..

Question

Pessoal, um ol� a todos... Estou num dilema. Preciso ler um arquivo do excel com v�rias colunas e gerar filtros/combobox de acordo com cada coluna para que possam ser usadas como par�metros para gerar...

J�der Medeiros · Answer

N�o entendi ao certo o que quer fazer. Mas veja um t�pico que respondi e ajudou um amigo. Talvez ajude voc� a entender e se n�o atender, explique melhor sua d�vida.
[url]http://forum.devmedia.com.br/viewtopic.php?p=263277&sid=802eb5eed557d76f694f277590abacb0#263277[/url]

Alexandregois · Answer

Ap�s muita luta, j� consigo ler a quantidade de colunas do arquivo excel, jogo o arquivo pro adodataset e depois pro grid a� conto as colunas do grid... foi a forma mais f�cil que encontrei :)

Mas agora preciso fazer um count dessas colunas e passando os FieldName do grid para os DBLookupComboBox sequencialmente, tipo:

TDBLookupComboBox(Components[0]).ListField:= dbgrid1.Columns[0].FieldName;
TDBLookupComboBox(Components[0]).KeyField:= dbgrid1.Columns[0].FieldName;
...
TDBLookupComboBox(Components[24]).ListField:= dbgrid1.Columns[24].FieldName;
TDBLookupComboBox(Components[24]).KeyField:= dbgrid1.Columns[24].FieldName;

Estou testando um c�digo abaixo, mas s� manda para um DBLookupComboBox, os outros ficam
invis�veis e sem o listfield e o keyfield.

Tive que colocar v�rios DBLookupComboBox na tela, mas gostaria de cri�-los em tempo de execu��o conforme a quantidade de colunas do excel e ir passando os valores. Essas DBLookupComboBox ser�o filtros para crit�rio de busca no dataset com os dados do excel.

procedure TForm1.Button3Click(Sender: TObject);
var
i, p : Integer;
begin

for i := 0 To 24 Do
begin
for p := 0 to ComponentCount -1 do
if Components[p] is TDBLookupComboBox then
begin
TDBLookupComboBox(Components[p]).Visible:=True;
TDBLookupComboBox(Components[p]).ListField:= dbgrid1.Columns[i].FieldName;
TDBLookupComboBox(Components[p]).KeyField:= dbgrid1.Columns[i].FieldName;
end;

end;
end;

Aguardo ajuda.

Alexandre.

J�der Medeiros · Answer

Nossa Senhora! Voc� est� percorrendo todos os componentes 24 vezes? Faz isso n�o Alexandre. Percorre todos os componentes e para cada itera��o executa a opera��o que quer 24 vezes. Mas vamos esquecer esse c�digo. Voc� quer mesmo � criar os componentes em tempo de c�digo. Beleza...

var
i: Integer;
const
LeftCombos = 2;
TopCombos = 130;
begin
for i := 0 to DBGrid1.Columns.Count-1 do
if not Assigned(FindComponent(�lkp�+DBGrid1.Columns[i].FieldName)) then
with TDBLookupComboBox.Create(Self) do begin
Parent     := Self;
Name       := �lkp�+DBGrid1.Columns[i].FieldName;
Top        := Round(TopCombos+Height*(1+i));
Left       := LeftCombos;
ListSource := DBGrid1.DataSource;
ListField  := DBGrid1.Columns[i].FieldName;
KeyField   := DBGrid1.Columns[i].FieldName
end
end;

F�rum ler um arquivo do excel com v�rias colunas e gerar filtros.. #327591