cxdbtreelist新增
type
TMYDBControler = class(TcxDBTreeListDataController);
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;
var
AParentKeyValue: Variant;
begin
AParentKeyValue := TMYDBControler(cxDBTreeList1.DataController).DBParentField.Value;
ADOTable1.Append;
TMYDBControler(cxDBTreeList1.DataController).DBParentField.Value := AParentKeyValue;
end;
本文来自博客园,作者:{咏南中间件},转载请注明原文链接:https://www.cnblogs.com/hnxxcxg/archive/2011/09/19/2940582.html