Fórum Sistema de Perguntas #288841
20/07/2005
0
bom pessoal é o seguinte, eu estou desenvolvendo um sistema de cadastro de perguntas feito com paradox. nesse sistema eu tenho uma tabela chamada Perguntas.db e uma tabela chamada GrupoPerg.db, na tabela Perguntas.db eu gravo 12 perguntas e na tabela GrupoPerg.db eu gravo 6 grupos ou seja fica 2 perguntas para cada grupo e numa outra tela eu exibo essas 12 perguntas separadas por grupo,eu to exibindo elas em 12 Labels, eu estou usando um while mas nao esta exibindo todas...se alguem puder me dar uma ajuda vai me adiantar um lado...
abraço pra todos!
ps segue o codigo utilizado.
abraço pra todos!
ps segue o codigo utilizado.
While not Table1.Eof do
begin
if Table1Grupo.Value=´Comunicação´ then
begin
Label1.Caption:=Table1.FieldByName(´pergunta´).AsString;
end;
Table1.next;
if Table1Grupo.Value=´Comunicação´ then
begin
Label2.Caption:=Table1.FieldByName(´pergunta´).AsString;
end;
Table1.Next;
if Table1Grupo.Value=´Qualidade´ then
begin
Label3.Caption:=Table1.FieldByName(´pergunta´).AsString;
end;
Table1.next;
if Table1Grupo.Value=´Qualidade´ then
begin
Label4.Caption:=Table1.FieldByName(´pergunta´).AsString;
end;
Table1.Next;
if Table1Grupo.vALUE=´Pontualidade´ then
begin
Label5.Caption:=Table1.FieldByName(´pergunta´).AsString;
end;
Table1.Next;
if Table1Grupo.Value=´Pontualidade´ then
begin
Label6.Caption:=Table1.FieldByName(´pergunta´).AsString;
end;
Table1.next;
if Table1Grupo.Value=´Atendimento´ then
begin
Label7.Caption:=Table1.FieldByName(´pergunta´).AsString;
end;
Table1.Next;
IF Table1Grupo.Value=´Atendimento´ then
begin
Label8.Caption:=Table1.FieldByName(´pergunta´).AsString;
end;
Table1.Next;
if Table1Grupo.Value=´Preço´then
begin
Label9.Caption:=Table1.FieldByName(´pergunta´).AsString;
end;
Table1.Next;
if Table1Grupo.Value=´Preço´ then
begin
Label10.Caption:=Table1.FieldByName(´pergunta´).AsString;
end;
Table1.Next;
if Table1Grupo.value=´Geral´ then
begin
Label11.Caption:=Table1.FieldByName(´pergunta´).AsString;
end;
Table1.Next;
if Table1Grupo.Value=´Geral´ then
begin
Label12.Caption:=Table1.FieldByName(´pergunta´).AsString;
Table1.Next;
end;
end;
L3gion4rio
Curtir tópico
+ 0
Responder
Posts
20/07/2005
Rjun
Provavelmente o erro esta nesse monte de Table.Next. Coloque essa linha somente no fim do loop.
While not Table1.Eof do
begin
if Table1Grupo.Value = ´Comunicação´ then
Label1.Caption := Table1.FieldByName(´pergunta´).AsString
else if Table1Grupo.Value = ´Comunicação´ then
Label2.Caption := Table1.FieldByName(´pergunta´).AsString
else if Table1Grupo.Value = ´Qualidade´ then
Label3.Caption := Table1.FieldByName(´pergunta´).AsString;
else if Table1Grupo.Value = ´Qualidade´ then
Label4.Caption := Table1.FieldByName(´pergunta´).AsString;
else if Table1Grupo.Value = ´Pontualidade´ then
Label5.Caption := Table1.FieldByName(´pergunta´).AsString;
else if Table1Grupo.Value = ´Pontualidade´ then
Label6.Caption := Table1.FieldByName(´pergunta´).AsString;
else if Table1Grupo.Value = ´Atendimento´ then
Label7.Caption := Table1.FieldByName(´pergunta´).AsString;
else if Table1Grupo.Value = ´Atendimento´ then
Label8.Caption := Table1.FieldByName(´pergunta´).AsString;
else if Table1Grupo.Value = ´Preço´then
Label9.Caption := Table1.FieldByName(´pergunta´).AsString;
else if Table1Grupo.Value = ´Preço´ then
Label10.Caption := Table1.FieldByName(´pergunta´).AsString;
else if Table1Grupo.value = ´Geral´ then
Label11.Caption := Table1.FieldByName(´pergunta´).AsString;
else if Table1Grupo.Value = ´Geral´ then
Label12.Caption := Table1.FieldByName(´pergunta´).AsString;
Table1.Next;
end;
Responder
Gostei + 0
20/07/2005
L3gion4rio
Ai cara valeu pela dica...adiantou bastante pra mim..valeu mesmo. abraço pra ti cara!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)