剛剛使用Dev 控制元件。使用到Dcxtreelist的時候 新增了如圖的demo。。可是怎樣遍歷獲取我的valuse值呢。。就是后面的數字
uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
求哪位大神寫個demo給我看看uj5u.com熱心網友回復：
cxTreeList1.Clear;cxTreeList1.OptionsView.CheckGroups := true;
cxTreeList1.Root.CheckGroupType := ncgCheckGroup;
try
qryParent.DisableControls;
with qryParent do
begin
Close;
SQL.Text := ' Select * from R_Permission where PARENTID=''0'' ';
Open;
qryParent.First;
while not qryParent.Eof do
begin
RootNode := cxTreeList1.Add;
RootNode.CheckGroupType := ncgCheckGroup;
RootNode.Values[0] := qryParent.FieldByName('ID').AsString + '.' + qryParent.FieldByName('name').AsString;
RootNode.Values[1] := qryParent.FieldByName('ID').AsString;
// RootNode.ImageIndex:=0;
// RootNode.Enabled := False;
qryChild.DisableControls;
qryChild.Close;
qryChild.SQL.Text := ' Select * from R_Permission where PARENTID=:PARENTID ';
qryChild.Parameters.ParamByName('PARENTID').Value := qryParent.FieldByName('ID').AsString;
qryChild.Open;
// Filtered := False;
// Filter := 'ID=' + QuotedStr(qryChild.FieldByName('ID').AsString);
// Filtered := True;
qryChild.First;
while not qryChild.Eof do
begin
SonNode := RootNode.AddChild;
SonNode.Values[0] := trim(qryChild.FieldByName('ID').AsString) + '.' + qryChild.FieldByName('name').AsString;
SonNode.Values[1] := qryParent.FieldByName('ID').AsString;
SonNode.ImageIndex:=1;
qryChild.Next;
end;
qryChild.EnableControls;
qryParent.Next;
end;
qryParent.EnableControls;
end;
finally
cxTreeList1.FullExpand;
end;
uj5u.com熱心網友回復：
你的sql 傳參容易出現問題uj5u.com熱心網友回復：
//Items是按樹型結構存放的，單純遍歷Items，只能得到第一層的節點//TcxTreeList包含了一個AbsoluteItems，保存了順序結構的節點
for i := 0 to cxTreeList1->AbsoluteCount - 1 do
ShowMessage(cxTreeList1.AbsoluteItems[i].Texts[1]);
uj5u.com熱心網友回復：
5樓正解！！！轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/69294.html
標籤：VCL組件開發及應用
上一篇：XE2 中如何新建Web app Debugger executable
下一篇：一個報表的困惑