| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Повтор значений - ошибка [D7, XP]
SveTT © (2007-02-03 15:14:00)Здравствуйте!
Подскажите пожалуйста, почему имеет место ошибка - при выборе мышкой (или курсором вверх, вниз) из списка значений, выбранное значение дублируется. При вводе символа значений с клавиатуры такого не происходит! Ошибка не кретична, но хотелось бы разобраться.
procedure TTRF_TOVARHISTORY.ComboBox1Change(Sender: TObject);
begin
DMFrm.HistoryQuery.Close;
DMFrm.HistoryQuery.SQL.Clear;
DMFrm.HistoryQuery.SQL.Add('SELECT DISTINCT KOD, FULLname FROM "TOVAR.DB" ');
DMFrm.HistoryQuery.SQL.Add('WHERE KOD LIKE '''+ComboBox1.Text+'%''');
DMFrm.HistoryQuery.Open;
DMFrm.HistoryQuery.First;
While not DMFrm.HistoryQuery.Eof do begin
ComboBox1.Items.Add(DMFrm.HistoryQuery.FieldByName('KOD').AsString);
DMFrm.HistoryQuery.Next;
end;
Info.Caption := ' '+DmFrm.HistoryQuery.FieldByName('Fullname').AsString+'';
end;
SveTT (2007-02-04 08:49:00) [1]Спасибо Вам!
Desdechado (2007-02-03 19:30:00) [2]т.е. в обработчике "изменение состояние комбо" стоит вставка в этот самый комбо
Johnmen (2007-02-03 19:05:00) [3]
> Подскажите пожалуйста, почему имеет место ошибка - при выборе
> мышкой (или курсором вверх, вниз) из списка значений, выбранное
> значение дублируется.
Вот и ответ:
> ...
> ComboBox1.Items.Add(DMFrm.HistoryQuery.FieldByName('KOD').AsString);
> ...
| |
