Скачать: CL | DM;

Помощь !!   Найти похожие ветки 

← →
Otari   (2004-12-27 13:11) [0]

Я хочу добавить 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 оно останавливает работать

---

← →
Johnmen ©   (2004-12-27 13:17) [1]

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;

---

← →
Otari   (2004-12-27 13:23) [2]

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.

---

← →
Mike Kouzmine ©   (2004-12-27 13:24) [3]

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

---

← →
Otari   (2004-12-27 13:26) [4]

da eto ponimaiu,

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c