[Red_Garry]

Здравствуйте!
Сливаю две таблицы Fam и Zar посредсвом Left Outer Join. На форме есть DBGrid1. Его свойство Visible в false. К DBGrid-у привязан неактивный ADOQuery1. На кнопке имеем следующий код:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT fam.TAB_N, fam.FIO, zar.Zarabotok FROM Fam LEFT OUTER JOIN Zar ON Fam.Tab_N=Zar.Tab_N');
ADOQuery1.Active:=True;
DBGrid1.Visible := true;
end;

Два чайниковских вопроса:
1. Как программно задать ширину столбцов, выводимых в DBGrid1?
2. Как в числовом поле (в данном случае Zar.Zarabotok) получить '0,00' в случае, если для записи левой таблицы не найдётся соответствия в правой?

[Страдалецъ]

1.

Код:

for i := 0 to DBGrid1.Columns.Count - 1
 do DBGrid1.Columns.Items[i].Width := 60;

2.

Код:

SELECT fam.TAB_N, fam.FIO, iif(isnull(zar.Zarabotok),0.0,zar.Zarabotok) as Zarabotok FROM Fam LEFT OUTER JOIN Zar ON Fam.Tab_N=Zar.Tab_N

[Red_Garry]

Большое спасибо за ответ!

[Red_Garry]

Всё работает, только выводится просто '0'. Хотелось бы '0,00'

[Страдалецъ]

http://www.delphisources.ru/forum/sh...53&postcount=2

[Red_Garry]

Извините за бестолковость, но применительно к вышеотображённому коду - как это должно выглядеть?