| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Программное добавление и определение колонки в DBGrid [D5, Paradox]
Fuelfire © (2003-09-17 07:44:00)
Здравствуйте! Как программно можно определить колонку в DBGrid.. То есть с добавлением колонки проблем нет, а вот как назначить ей поле и отобразить в гриде? Буду признателен за любой примерный код..
Fuelfire (2003-09-17 09:50:00) [1]
Да...Уже догадался в чем дело и переделал... Все равно спасибо за помощь!
ЮЮ (2003-09-17 09:31:00) [2]
Найди разницу
Form8.DBGrid1.Columns[i].Field.FieldName
и
Form8.DBGrid1.Columns[i].FieldName
В первом, твоем, варианте, ты пытаешься изменить FieldName у TField, а во втором будет подобран тот TField, у которого имя совпадёт с заданным
а Access violation, потому что Columns[2] ещё не существует
Form8.DBGrid1.Columns[Form8.DBGrid1.Columns.Count - 1].Field.FieldName
Fuelfire (2003-09-17 08:17:00) [3]
2 ЮЮ ©
Ага... Так приблизительно и делаю:
CheckListBox1.Checked[0]:=true;
CheckListBox1.Checked[1]:=true;
..
..
For i:=2 to (CheckListBox1.Items.Count-1) do
begin
if CheckListBox1.Checked[i] then
begin
Form8.DBGrid1.Columns.Add;
Case i of
2: Form8.DBGrid1.Columns[i].Field.FieldName:="Country";
3: Form8.DBGrid1.Columns[i].Field.FieldName:="Developer";
4: Form8.DBGrid1.Columns[i].Field.FieldName:="Year";
5: Form8.DBGrid1.Columns[i].Field.FieldName:="Net";
6: Form8.DBGrid1.Columns[i].Field.FieldName:="s-f";
7: Form8.DBGrid1.Columns[i].Field.FieldName:="ch";
8: Form8.DBGrid1.Columns[i].Field.FieldName:="wiz";
9: Form8.DBGrid1.Columns[i].Field.FieldName:="WWW";
end;
end;
end;
То есть есть форма с чеклистбоксом, где можно отмечать те поля, которые нужно отображать в гриде.. Два из них выделены всегда..
Выделяю 3 поле, жму "Сохранить".. Получаю ошибку..
Ругается делфя "Access violation" на выделенной строке..
ЮЮ (2003-09-17 07:50:00) [4]
DbGrid.Columns.Items[Index].FieldName := ...
или
DbGrid.Columns[Index].FieldName := ...
| |
