procedure TForm1.RzButton2Click(Sender: TObject);
var
i: integer;
begin
ods1.Close;
for i := cxGrid1DBTableView1.ColumnCount - 1 downto 0 do
cxGrid1DBTableView1.Columns[i].Destroy;
ods1.SQL.Clear;
ods1.SQL.Text := RzMemo1.Text;
ods1.ExecSQL;
ods1.Open;
for i := 0 to ods1.FieldCount - 1 do
cxGrid1DBTableView1.CreateColumn.DataBinding.FieldName := ods1.Fields[i].FieldName; //这里就是创显示字段
end;