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

Вниз

DBGrid   Найти похожие ветки 

← →
Lexa   (2002-12-22 04:33) [0]

Подскажите как програмно добавить поле в DBGrid

---

← →
Max Zyuzin ©   (2002-12-22 10:00) [1]

DBGrid1.Columns.Add;
DBGrid1.Columns[i].FieldName := "MyField";

---

← →
MsGuns ©   (2002-12-22 14:07) [2]

Поле можно добавить только в набор данных, а в грид можно добавить только колонку, которую можно связать с любым полем НД.
Так чтО надо ?

---

← →
Lexa   (2002-12-22 15:25) [3]

Почему здесь выдает ошибку ListIndex out of bounds
procedure TForm3.FormActivate(Sender: TObject);
var i:integer;
TempTable:TTable;
begin
TempTable:=TTable.Create(nil);
with TempTable do
begin
DatabaseName:="database";
TableName:="TempTable";
TableType:=ttParadox;
with FieldDefs do
begin
Add("Book", ftString, 30, true);
Add("Invoice", ftinteger, 0, false);
Add("Amount", ftInteger, 0, false);
Add("Price", ftInteger, 0, false);
end;
CreateTable;
end;
DataSource1.DataSet:=TempTable;
DBGrid1.DataSource:=DataSource1;
for i:=0 to 3 do
begin
DBGrid1.Columns.Add;
DBGrid1.Columns[1].FieldName:=TempTable.Fields[1].FieldName;
end;
end;

---

← →
Max Zyuzin ©   (2002-12-22 15:33) [4]

DBGrid1.Columns[ i].FieldName:=TempTable.Fields[ i].FieldName
Может вот так? А у TempTable.Fields точно начинается нумерация с 0 ??

---

← →
Lexa   (2002-12-22 15:40) [5]

Прошу прощения ошибку выдает при таком коде
for i:=0 to 3 do
begin
DBGrid1.Columns.Add;
DBGrid1.Columns[i].FieldName:=TempTable.Fields[i].FieldName;
end;

---

← →
ЮЮ ©   (2002-12-23 04:51) [6]

FieldDefs.Count и Fields.Count - разные величины. И если FieldDefs ты определил, то Fields.Count = 0 до открытия таблицы.
for i :=0 to TempTable.Fields.Count - 1 do

---

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

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

Наверх

Память: 0.47 MB
Время: 0.01 c