|
共有评论5条
当前显示最后5条评论
|
| realone_box |
2007/1/12 14:11:02 |
//读出数据从数据库
while not Osp.Eof do
begin
for i:= 0 to TreeV_Main.Items.Count - 1 do
begin
if string(TreeV_Main.Items[i].Data)=Osp.fieldbyname('Category_ID_F').AsString then
begin
FatherNode:=TreeV_Main.Items[i];
break;
end;
end;
myNode:=TreeV_Main.Items.AddChild(FatherNode,Osp.fieldbyname('Category_Name').AsString);
SL_Category_id.Add(Osp.fieldbyname('category_id').AsString);
//SL_Category_id为TStringList;
myNode.Data:=pstring(SL_Category_id.Strings[SL_Category_id.count-1]);
Osp.Next;
end;
//访问Data指向的Category_ID方法
string(TreeV_Main.Selected.Data)
{库结构
Category_ID Category_Name Category_ID_F
1\ abc
1\2\ cba 11\3\ dba 1读库时Order by category_id} |
| imijoma |
2015/12/23 13:48:55 |
| [url=http://fluconazolepurchasediflucan.com/]Diflucan[/url] <a href="http://canadianprices-pharmacy.com/">Online Pharmacy Generic Viagra</a> http://furosemidelasixbuy.com/ |
| ujuharuhaw |
2015/12/23 14:01:36 |
| [url=http://fluconazolepurchasediflucan.com/]150 Mg Diflucan[/url] <a href="http://canadianprices-pharmacy.com/">Canadian Pharmacy</a> http://furosemidelasixbuy.com/ |
| ekekabaxu |
2015/12/23 14:12:42 |
| [url=http://fluconazolepurchasediflucan.com/]Diflucan Use During Pregnancy[/url] <a href="http://canadianprices-pharmacy.com/">Canadian Pharmacy</a> http://furosemidelasixbuy.com/ |
| ugejibkitu |
2015/12/23 14:26:53 |
| [url=http://fluconazolepurchasediflucan.com/]Taking Diflucan[/url] <a href="http://canadianprices-pharmacy.com/">Online Pharmacy</a> http://furosemidelasixbuy.com/ |
| 我要发表评论 |
查看全部评论 |
盒子资源分类大树
