要用table 做一个treeview
现在有个表(st)
编号 杂志类 期号 是否阅读
1 fd 0201 false
2 fd 0305 false
3 re 0309 true
....
出来结果:
-未阅读
-fd
-fd0201
-fd0305
-已阅读
-re
-re0309 现在我不知道怎么过滤,请求大虾们帮助啊
现在有个表(st)
编号 杂志类 期号 是否阅读
1 fd 0201 false
2 fd 0305 false
3 re 0309 true
....
出来结果:
-未阅读
-fd
-fd0201
-fd0305
-已阅读
-re
-re0309 现在我不知道怎么过滤,请求大虾们帮助啊
解决方案 »
- Delphi如何在表格的各列中使用控件名称+变量这样的
- 老问题,如何在任何时间都能安全的退出程序?MainForm.Close好像会出很多问题,Application.Terminate又不执行Close中的操作?
- listbox.additem如何用
- 请问怎么得到系统SID呀,高分送上
- 读取CLOB类型字段问题。高手请帮帮忙。能解决的话重重给分
- 在delphi程序中如何把中文已UTF-8编码?急!!
- 为什么我的程序用了异常处理后会自动退出,而他人的程序却不会呢?郁闷.
- 将动态数组用多线程导入SQL SERVER库中,高分
- 1500分求购COM+实例,收到给分,分已发出,绝不食言,由于一个贴子只能发100分,请分别到15个帖子接分!!!!(12 of 15)
- listview的使用问题
- 求助:是否有api函数可以完成对域用户身份和密码的验证,并返回验证结果?
- 很简单,向数据库中存数据,怎么做!
root=suiTreeView1->Items->AddChild(NULL,未阅读);
Query1->Close();
Query1->SQL->Clear();
Query1->SQL->Add("select 杂志类 from st where 是否阅读 =false");
Query1->Open();
Query1->First();
while(!Query1->Eof)
{
node=suiTreeView1->Items->AddChild(root,Query1->FieldByName("杂志类 ")->AsString );
Query2->Close();
Query2->SQL->Clear();
Query2->SQL->Add("select 杂志类 , 期号 from st where 是否阅读 =false and 杂志类=Query1->FieldByName("杂志类 ")->AsString ");
Query2->Open();
Query2->First();
while(!Query2->Eof)
{
suiTreeView1->Items->AddChild(node,Query2->FieldByName("杂志类 ")->AsString +Query2->FieldByName("期号 ")->AsString);
Query2->Next();
}
Query1->Next();
}
root=suiTreeView1->Items->AddChild(NULL,未阅读);
Query1->Close();
Query1->SQL->Clear();
Query1->SQL->Add("select 杂志类 from st where 是否阅读 =false");
Query1->Open();
Query1->First();
while(!Query1->Eof)
{
node=suiTreeView1->Items->AddChild(root,Query1->FieldByName("杂志类 ")->AsString );
Query2->Close();
Query2->SQL->Clear();
Query2->SQL->Add("select 杂志类 , 期号 from st where 是否阅读 =false and 杂志类=Query1->FieldByName("杂志类 ")->AsString ");
Query2->Open();
Query2->First();
while(!Query2->Eof)
{
suiTreeView1->Items->AddChild(node,Query2->FieldByName("杂志类 ")->AsString +Query2->FieldByName("期号 ")->AsString);
Query2->Next();
}
Query1->Next();
}
root=suiTreeView1->Items->AddChild(NULL,已阅读);
Query1->Close();
Query1->SQL->Clear();
Query1->SQL->Add("select 杂志类 from st where 是否阅读 =true");
Query1->Open();
Query1->First();
while(!Query1->Eof)
{
node=suiTreeView1->Items->AddChild(root,Query1->FieldByName("杂志类 ")->AsString );
Query2->Close();
Query2->SQL->Clear();
Query2->SQL->Add("select 杂志类 , 期号 from st where 是否阅读 =true and 杂志类=Query1->FieldByName("杂志类 ")->AsString ");
Query2->Open();
Query2->First();
while(!Query2->Eof)
{
suiTreeView1->Items->AddChild(node,Query2->FieldByName("杂志类 ")->AsString +Query2->FieldByName("期号 ")->AsString);
Query2->Next();
}
Query1->Next();
}