[hypopatamus]

Здравствуйте!

if P1.ActivePageIndex=0 then
begin Query4.close;
Query4.SQL.Clear;
Query4.SQL.Add(RE0.text);
dbgrid4.Columns:=???????;
Query4.Open;

из ричэдит в режиме Run-Time вводим sql запрос.при нажатии на кнопку запрос активируется.текст кнопки привел.
не пойму только одно,как можно обновлять dbgrid4.Columns, чтобы обновлялись колонки в соотвествии с новым запросом.

[NIch]

Может написать

Код:

dbgrid4.Columns:=???????;

после

Код:

Query4.Open;

[hypopatamus]

ну вот а что писать?
какое то свойство у dbgrid.columns есть на обновление?просто если в режиме редактирования программы это делать то там в Columns Editor есть прекрасная кнопка Add all fields, которая обновляет все в соответствии с запросом.

[NIch]

У компонента Query есть свойство AutoUpdate...Оно обновляет DataSource, тот в свою очередь DBGrid...
А привязывать колонки тебе надо вручную...т.к. это не Table, а SQL...
Например...

procedure FillDBGrid;
begin
with DataModule_.Query1 do begin
Close;//Закрыть
SQL.Clear;//Очистить
SQL.Add('SELECT NumberBill, Summ, DateDay');//Выбрать нужные колонки
SQL.Add('FROM ListBill.db');//Из такой то таблицы
SQL.Add('WHERE Shop='+IntToStr(DataBases.Shop));//Условие выборки
SQL.Add('ORDER BY DateDay');//Сортировка
Open;//Открыть
end;
with Form_Main.DBGrid1 do begin//Привязываем колонки
Columns[0].FieldName := 'DateDay';
Columns[1].FieldName := 'NumberBill';
Columns[2].FieldName := 'Summ';
end;
end;