Показать сообщение отдельно
  #6  
Старый 27.10.2006, 15:24
pro100irk pro100irk вне форума
Прохожий
 
Регистрация: 24.10.2006
Сообщения: 6
Репутация: 10
По умолчанию

Видимо я не в танке, а под ним...

Вот код:

procedure TFinanse2.Table4FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
if ComboBox5.Text = '' then Exit;
Table4.Filter := 'Kontragent=''' + ComboBox5.Text+'''';
Accept := DataSet['Gotov'].AsString = 'Ãîòîâ';
end;


НЕ РАБОТАЕТ
И не могу разобраться, почему
Ответить с цитированием