Ir para conteúdo
Fórum Script Brasil
  • 0

Manipulando Treeview


João Paulo Taraciuk

Pergunta

Boa tarde

Estou fazendo uma aplicação de uma agenda e pretendo fazer o seguinte

Tenho lá no DB Access os eventos separados por datas, o que eu gostaria de fazer é assim, a Query pega todas as datas, e primeiramente cria o nó do Ano(Somente do ano que existir evento), aí cria o nó filho do mes e dentro desse nó do mes cria o nó filho de dias, somente dos dias e meses que tiver evento.

Estou encontrando dificuldade para fazer isso.

tentei faze assim:

procedure Tfrm_servicos.BitBtn1Click(Sender: TObject);
var
no1 : TTreeNode;
a : Integer;
begin  {
with
TreeView1.Items do
begin
Clear;
AdoQuery1.Active:=False;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add(Select Year([data])from tabela);
AdoQuery1.Active:=True;
AdoQuery1.First;
While not(Adoquery1.EOF)do
Begin
for a:=0 to TreeView1.Items.Count do
Begin
if(TreeView1.Items.Item[a].Text<> AdoQuery1.Fields[0].AsString)then
no1:=Add(nil, AdoQuery1.Fields[0].AsString)
else
Abort;

Mas não consegui sair daí, para pegar depois disso os meses e fazer a mesma coisa, jogando cada mes no seu respectivo ano.

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...