假如我有一个数据库,里面有 N 个字段,其中有两个字段 ID,Description
现在我想根据 ID 来建立树的节点
FieldList.Add(DataModule1.ADOTable1.fieldbyname ('ID').AsString); TreeAddItem (TreeView1, GetFieldList, DataModule1.ADOTable1.GetBook, false);
但是这样建立后,节点的名称是 ID,有没有办法用ID来建立却让它显示另一个字段 如: Description 的内容 ?小弟先在此谢谢啦~~~~~~~~~
分少可以加~~~~帮帮我啊~~~~~~~~~~~~~~~~~~~~
现在我想根据 ID 来建立树的节点
FieldList.Add(DataModule1.ADOTable1.fieldbyname ('ID').AsString); TreeAddItem (TreeView1, GetFieldList, DataModule1.ADOTable1.GetBook, false);
但是这样建立后,节点的名称是 ID,有没有办法用ID来建立却让它显示另一个字段 如: Description 的内容 ?小弟先在此谢谢啦~~~~~~~~~
分少可以加~~~~帮帮我啊~~~~~~~~~~~~~~~~~~~~
解决方案 »
- 求大虾们帮忙将这条语句简化掉..
- 如何实现窗口透明,但是窗口上的文字不透明
- 大家骂我吧,孩子已经姓王了,叫王宏力,我实在拗不过我老婆。我对不起我的爸爸,爷爷和祖上,吕姓从我这断开了
- 如何把table1中字段A的所有值赋于ComboBox1中,ComboBox1不能有重复值?
- 紧急求助:用多线程测试多个数据库连接?
- 请问:private public protected published 的区别
- 如何 开发使用 USB 控制编程器的应用程序 (200分 )
- 有关文件加密与文件夹加密的程序怎么编?
- 用Remote Data Modual连接SQLServer遇到的问题,请专家指教
- stringlist的SaveToFile()出错了,我真菜
- 急~~在线等,有确切代码或答案马上给分--一个ListBox上面有很多的行,我想让隔行的背景颜色变成其他不同颜色,比如一行白一行蓝相间
- 请高手指教,十万火急 关于TDGEDIT的问题
成立的时候就取出Description
的值噻。
PNode=^TNode;
TNode=record
id: integer;
Name: string;
end;加载树时
var
p: PNode;
cnode: TTreeNode;
begin
with Query1 do
begin
Close;
Sql.Text:='select id,name from sysuser';
Open;
First;
new(p);
p.id:= FieldByName('id').AsInteger;
p.name:= FieldByName('name').AsString;
While not eof do
begin
CNode := TreeView1.AddChildObject(nil, FieldByName('Name').AsString, p);
Next;
end;
end;
end;取ID时,比如单击树
if TreeView1.Selected<>nil then
PNode(TreeView1.Selected.Data).ID;
比如我有这样一个表
id Description
1 asd
2 sdfg
3 sg 现在我建立的树是这样的:
1
2
3
但我想生成的树是这样:
asd
sdfg
sg有什么办法吗??? newc_k(帕拉丁),你说的我还没看懂~~~~~~~ sorry !!~~~~~~~
正在加油解读中........
我觉得应该比较易懂了吧~~~~~~~~
HELP!!!!!!!
treeview1.addchild(nil, Query1.FieldByname('Description').asstring)