cxdbtreelist新增

 

type
  TMYDBControler = class(TcxDBTreeListDataController);

procedure TForm15.Button1Click(Sender: TObject);
var
  AParentKeyValue: Variant;
begin
  AParentKeyValue := TMYDBControler(cxDBTreeList1.DataController).DBParentField.Value;
  ADOTable1.Append;
  TMYDBControler(cxDBTreeList1.DataController).DBParentField.Value := AParentKeyValue;
end;