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;