| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помощь !! [D5, D6, D7, MySQL, dBase, FoxPro]

Otari ©   (2004-12-27 13:11:00) 

Я хочу добавить Listbox Items от Query, я делаю как это

procedure TForm1.EncartaButton2Click(Sender: TObject);
var i: integer;
begin
form1.ListBox1.Items.Clear;
for i:= 1 to form1.Query1.RecordCount  do
 begin
 form1.Query1.RecNo:=i;
 form1.ListBox1.Items.Add(form1.Query1.FieldValues['arxitektoniko']+', '+Query1.FieldValues['yliko']+', '+Query1.FieldValues['xrisi']+', '+Query1.FieldValues['ependiseis']);
 end;
end;

оно работает, но когда я делаю Filter оно останавливает работать

---

Otari   (2004-12-27 13:26:00) [1]

da eto ponimaiu,

---

Mike Kouzmine   (2004-12-27 13:24:00) [2]

Otari   (27.12.04 13:11)  Потому что когда ты накладываешь фильтр, то нумерация становиться хаотичной. Поэтому 1. (Всегда так надо)

---

Otari   (2004-12-27 13:23:00) [3]

Delo vtom 4to ia xo4y zafiqsirovar recno, patamu4to u menia dve bazovii faili i ia vo vtorom toje sdelaiu filter, v pervom mojet vivesti 20 items a vo vtorom query 10, a patom sravnivaiu ix recno i v vtorom listbox-e dabavliaiu te u kotorix adno je recno.

---

Johnmen   (2004-12-27 13:17:00) [4]

Query1.First;
while not Query1.Eof do begin
 ListBox1.Items.Add(Query1.FieldValues['arxitektoniko']
 +', '+Query1.FieldValues['yliko']+', '+Query1.FieldValues
 ['xrisi']+', '+Query1.FieldValues['ependiseis']);
 Query1.Next;
 end;

---

Наверх