Como Cópiar conteudo de um listbox para uma tabela alguem ??
18/02/2003
0
Oi
Gostaria de copiar o conteudo do listBox para um campo da tabela :?
Tentei assim mas so copiou 2 items do listbox e reptiu 4 vezes ...
[b:12fd0b4b04]With IBTable1 Do
Begin
first;
While Not Eof Do
Begin
Insert;
for i:=0 to (listbox1.items.count-1) do
begin
IBTable1MATERIA.value:=listbox1.Items[I];
end;
post;
next;
End;
End;[/b:12fd0b4b04]
Alguem me ajude ?????
Gostaria de copiar o conteudo do listBox para um campo da tabela :?
Tentei assim mas so copiou 2 items do listbox e reptiu 4 vezes ...
[b:12fd0b4b04]With IBTable1 Do
Begin
first;
While Not Eof Do
Begin
Insert;
for i:=0 to (listbox1.items.count-1) do
begin
IBTable1MATERIA.value:=listbox1.Items[I];
end;
post;
next;
End;
End;[/b:12fd0b4b04]
Alguem me ajude ?????
Anonymous
Curtir tópico
+ 0
Responder
Posts
18/02/2003
Anonymous
se você está copiando para a tabela não há porque voce percorrê-la.
Retire a parte do código que faz isso
With IBTable1 Do
Begin
first;
//While Not Eof Do Begin
Insert;
for i:=0 to (listbox1.items.count-1) do begin
IBTable1MATERIA.value:=listbox1.Items[I];
end;
post;
next;
//end;
End;
Retire a parte do código que faz isso
With IBTable1 Do
Begin
first;
//While Not Eof Do Begin
Insert;
for i:=0 to (listbox1.items.count-1) do begin
IBTable1MATERIA.value:=listbox1.Items[I];
end;
post;
next;
//end;
End;
Responder
18/02/2003
Anonymous
oi tenhu 100 items ´nomes´ no meu listbox
Que inserir os 100 Items do meu list box numa tabela
Po issso usei o While ´ Enquando tiver items no listbox faça insert e post´ ;;
Alguem mais pode me dar uma dica ?
Que inserir os 100 Items do meu list box numa tabela
Po issso usei o While ´ Enquando tiver items no listbox faça insert e post´ ;;
Alguem mais pode me dar uma dica ?
Responder
Clique aqui para fazer login e interagir na Comunidade :)