有没有利用TREEVIEW控件将数据库中的数据按照 ID\PID 关系显示的实例[email protected]
解决方案 »
- fastreport ,莫见笑
- 请问ComboboxEh中的keyitem是干嘛用的,谢谢啦?
- ★极度郁闷中,作程序员的我年纪大了以后怎么办呀???
- 我要把一个adotable中的一列字段的内容加到一个组合框的列表中,以下代码出现问题,急请教。
- 删除数据行,是这样写吗
- 网上哪里有SQL的游标的文章?
- dll文件里,我放了ADO的控件ADOTable,怎么执行后有错误
- 菜鸟求救:怎么把Listview中的记录前checkbox打钩的记录选出来,最好有代码
- 怎么这个控件找不到阿
- delphi 中如何 让某个 Components 不显示
- 类型转换
- 我用Delphi7写程序时,觉得“颜色”属性列表中的可选项太少,可以实现自定以颜色吗?
procedure Tf_power.buildtreedata;
var
getnode:Ttreenode;
begin
getnode:=nil;
with tv_user do
begin
items.Clear;
with dm_data.ClientDataSet_user do
begin
active:=false;
active:=true;
end;
while not dm_data.ClientDataSet_user.Eof do
begin
if (length(dm_data.ClientDataSet_user.Fields[0].AsString)=3) then
begin
getnode:=items.Add(nil,dm_data.ClientDataSet_user.Fields[1].AsString);//+'('+dm_data.ClientDataSet_user.Fields[0].AsString+')');
end
else
begin
if getnode<>nil then
items.AddChild(getnode,dm_data.ClientDataSet_user.Fields[1].AsString);//+'('+dm_data.ClientDataSet_user.Fields[0].AsString+')');
end;
dm_data.ClientDataSet_user.Next;
end;
end;
tv_user.FullExpand;
end;