是的, 这些工作我都已经做好了, 而且把如下的属性都设定了 fcDBTreeView1.MultiSelectAttributes.Enabled :=true; fcDBTreeView1.MultiSelectAttributes.MultiSelectLevel:=-1; fcDBTreeView1.MultiSelectAttributes.MultiSelectCheckbox:=true; 现在我想遍历树,查看一下有哪些结点被选中,怎么做啊? 我是这么做的: for i := 0 to fcDBTreeView1.MultiSelectListCount-1 do begin with fcDBTreeView1.MultiSelectList[i] do begin DataSet.GotoBook(Book); tempcheck[i].chapterid:=DataSet.Fields[1].Value ; tempcheck[i].nodeid:=DataSet.Fields[2].Value ; templ8:=templ8 +inttostr(tempcheck[i].chapterid)+inttostr(tempcheck[i].nodeid)+#13; end; end; 请问高手, 有没有其他的方法? 多谢指教
fcDBTreeView1.MultiSelectAttributes.Enabled :=true;
fcDBTreeView1.MultiSelectAttributes.MultiSelectLevel:=-1;
fcDBTreeView1.MultiSelectAttributes.MultiSelectCheckbox:=true;
现在我想遍历树,查看一下有哪些结点被选中,怎么做啊?
我是这么做的:
for i := 0 to fcDBTreeView1.MultiSelectListCount-1 do
begin
with fcDBTreeView1.MultiSelectList[i] do
begin
DataSet.GotoBook(Book);
tempcheck[i].chapterid:=DataSet.Fields[1].Value ;
tempcheck[i].nodeid:=DataSet.Fields[2].Value ;
templ8:=templ8 +inttostr(tempcheck[i].chapterid)+inttostr(tempcheck[i].nodeid)+#13;
end;
end;
请问高手, 有没有其他的方法? 多谢指教
你好,能否把fcdbtreeview控件发给我? 我一直在找一个DBTree组件 。
谢谢[email protected]
坏消息,要求用VBhttp://www.playicq.com/dispdoc.asp?id=55不过现在连不上,我毕业时,刻录到光盘上了,下次带来再给你们发吧不过,内存解漏太大,运行时不稳定