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;
酒肉穿肠过
佛祖心中留
世人若学我
如同入魔道