Dxmemdata添加数据源中不存在列

Dxmemdata添加新列并载入数据

var

lvb: TBooleanField;

begin

 

dxMemData1.CreateFieldsFromDataSet(ADOQuery1);

dxMemData1.Close;

lvb := TBooleanField.Create(dxMemData1);

lvb.FieldName := 'fsel';

lvb.DataSet := dxMemData1;

dxMemData1.Open;

DataSource1.DataSet := dxMemData1;

dxMemData1.LoadFromDataSet(ADOQuery1);

end;

转载于:https://www.cnblogs.com/jspdelphi/p/8874554.html