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

copy elements of column to listbox   Найти похожие ветки 

← →
namco   (2009-03-02 11:56) [0]

Здраствуйте
как мне копировать все елементы столбца в Listbox.
Спасибо

---

← →
Ega23 ©   (2009-03-02 12:04) [1]

в цикле?

---

← →
namco   (2009-03-02 12:14) [2]

а можно подробнее
код плз

---

← →
brother ©   (2009-03-02 12:15) [3]

столбец где?
или
скопировать куда?

---

← →
Ega23 ©   (2009-03-02 12:15) [4]

> а можно подробнее


нет

---

← →
Медвежонок Пятачок ©   (2009-03-02 12:21) [5]

listbox.items.addstrings

---

← →
namco   (2009-03-02 12:29) [6]

есть таблица такая

no   name   age
1    tom     12
2    joe      25
3    jane     32
...

как скопировать все елементы столбца name в listbox

---

← →
clickmaker ©   (2009-03-02 12:31) [7]

> [6] namco   (02.03.09 12:29)
> есть таблица такая

офигеть. И что?

---

← →
Palladin ©   (2009-03-02 12:32) [8]

в цикле

---

← →
brother ©   (2009-03-02 12:33) [9]

ппц. ну в цикле или через for...

---

← →
Palladin ©   (2009-03-02 12:34) [10]

самое главное понять, как персонажЬ связывает TListBox и Access

---

← →
MsGuns ©   (2009-03-02 12:38) [11]

procedure Form1.CopyDSFieldsToList(DS: TDataSet; FldName: string; List: TStrings);
var
 bm : TBookMark;

begin
  List.Clear;
  with DS do
    begin
     DisableControls;
     bm := GetBookMark;
     First;
     while not Eof do
       begin
        ListBox1.Add(FielsByName("FldName").AsString);
        Next;
      end;
    GoToBookMark(bm);
    FreeBookMark(bm);
    EnableControls;
   end;
end;

Использование:

 CopyDSFieldsToList(Table1, "Name", ListBox1.Items);

---

← →
MsGuns ©   (2009-03-02 12:40) [12]

Очепятка
Надо       List.Add(FieldByName("FldName").AsString);

---

← →
brother ©   (2009-03-02 12:43) [13]

> самое главное понять, как персонажЬ связывает TListBox и
> Access

а про него в сабже ничего не сказано...

---

← →
Ega23 ©   (2009-03-02 12:48) [14]

> MsGuns ©   (02.03.09 12:38) [11]


Вот у тебя твой DS.IsEmpty.
И кирдык.
К вопросу о надобности try..finally
DisableContriols;
try
 ....
finally
 EnableControls;
end;

---

← →
MsGuns ©   (2009-03-02 12:52) [15]

>Ega23 ©   (02.03.09 12:48) [14]

Ну да, ты мне еще расскажи, что поля FldName может не быть в датасете, датасет может быть не открыт, может быть однонаправленным и т.д.

 :)

---

← →
Ega23 ©   (2009-03-02 12:56) [16]

> Ну да, ты мне еще расскажи, что поля FldName может не быть
> в датасете, датасет может быть не открыт


Почему. Открыт. Но - пустой. Разве редкая ситуация?
Хотя, по-хорошему - проверять всё внутри функции. Иначе вообще нафиг она нужна, можно всё время копи-пастом код переставлять.

---

← →
Anatoly Podgoretsky ©   (2009-03-02 12:56) [17]

> MsGuns  (02.03.2009 12:52:15)  [15]

Ты точно этого хочешь?

---

← →
MsGuns ©   (2009-03-02 13:02) [18]

>Ega23 ©   (02.03.09 12:56) [16]
>Почему. Открыт. Но - пустой. Разве редкая ситуация?

Ну если исходить из того, что выкладываемый код должен быть прилизан и отлажен, иначе нечего его выкладывать, то согласен.
Уговорил :)

---

← →
Ega23 ©   (2009-03-02 13:09) [19]

> Ну если исходить из того, что выкладываемый код должен быть
> прилизан и отлажен, иначе нечего его выкладывать, то согласен.
>
> Уговорил :)


Дело не в этом. Если ты EnableControls в finally не поместишь, то любой exception между DisableControls и EnableControls поставит в коленно-локтевую позицию все визуальные компоненты, связанные с этим DataSet-ом. Сам exception - дело житейское, хоть и не очень приятное. Но последствия в твоём случае - весьма хреновые.

---

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

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



Память: 0.49 MB
Время: 0.016 c