Форум: "Базы";
Текущий архив: 2003.12.19;
Скачать: [xml.tar.bz2];
Внизнастройка полей таблицы Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c