Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.12.19;
Скачать: CL | DM;

Вниз

настройка полей таблицы   Найти похожие ветки 

 
Lexxxx   (2003-11-27 13:03) [0]

Помогите кто знает Listbox1 listbox2 dbgrid требуется загрузить в ListBox1 поля таблици и выбранные поля переместить
в listbox2. Выбранные поля показать в Dbgrid.


 
BoxTer ©   (2003-11-27 13:27) [1]

а теперь успокойся и скажи по-русски ;-)


 
Lexxxx   (2003-11-27 13:35) [2]

если коротко нужно отображать в таблице только те поля которые выбрал


 
Илайдж ©   (2003-11-27 13:47) [3]

пробегись циклом по колонкам DBGrida и если имя поля есть в ListBox2 делай Columns[i].visible := false else true


 
Рамиль ©   (2003-11-27 13:48) [4]

Посмотри повнимательней свойство DBGrid.Columns. у каждой колонки есть Visible и FieldName. При переносе поля в listbox2 меняешь Visible на true. Список доступных полей получаешь из свойства FieldName.


 
Lexxxx   (2003-11-27 14:00) [5]

Благодарю выручили


 
DenK_vrtz ©   (2003-11-27 14:07) [6]

и еще
1.Формирование списка полей
for i:=0 to Table1.FieldCount-1 do
ListBox1.Items.Add(Table1.Fields[i].FieldName);
2.Отображение выбранных
j:=0;
DBGrid1.Columns.Clear;
for i:=0 to ListBox1.Items.Count-1 do
if ListBox1.Selected[i] then
begin
DBGrid1.Columns.Add;
DBGrid1.Columns[j].FieldName:=ListBox1.Items[i];
inc(j);
end;


 
Vlad ©   (2003-11-27 14:08) [7]

DenK_vrtz © (27.11.03 14:07) [6]
Можно проще :)
ListBox1.Items:=Table1.FieldList;



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

Текущий архив: 2003.12.19;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
4-62317
Andriy Tysh
2003-10-22 18:41
2003.12.19
WH_KEYBOARD


1-62027
Донской
2003-12-05 19:54
2003.12.19
Canvas не позволяет рисовать - через 30 минут работы :-((


3-61897
dimm
2003-11-27 20:20
2003.12.19
Создание новой таблицы средствами Delphi


14-62237
Ig
2003-11-25 21:57
2003.12.19
GPRS - кто пользовался?


6-62173
Dmitry V. Averuanov
2003-10-07 14:43
2003.12.19
Как узнать имя хоста по его IP