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.
Pergunta
João Paulo Taraciuk
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:
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.