Главная страница
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-62336
dn
2003-10-24 22:59
2003.12.19
Поиск в памяте


3-61945
McSimm2
2003-11-26 17:16
2003.12.19
Запрос на


3-61903
gestern
2003-11-27 14:50
2003.12.19
TIBDataSet


14-62252
Nick-From
2003-11-24 19:18
2003.12.19
Интеллектуальный картридж HP (в защитном чехле)


3-61923
Russko
2003-11-27 12:33
2003.12.19
Как узнать наличие индексов в таблице?