Форум: "Базы";
Текущий архив: 2004.09.05;
Скачать: [xml.tar.bz2];

Вниз

Описание поля   Найти похожие ветки 

← →
eLVik ©   (2004-08-09 16:10) [0]

Пишу такой обработчик, чтоб получить описание поля

procedure TfmDatabase.DBGrid1CellClick(Column: TColumn);
var
 DS: TADODataset;
begin
 DS := TADODataset.Create(nil);
 ADOConn.OpenSchema(siColumns,VarArrayOf([Unassigned, Unassigned, ADOTable1.TableName, Unassigned]), EmptyParam, DS);
 DS.RecNo := Column.Index + 1;
 Edit1.Text := DS.FieldValues["DESCRIPTION"];
 DS.Free;
end;

При щелчке на столбец выдаётся описание, но не того поля.
В результате вставки кода

Memo1.Lines.Clear;
for i := 1 to DS.RecordCount do begin
 DS.RecNo := i;
 Memo1.Lines.Add(DS.FieldValues["Description"])
end;

в Memo записаны описания полей, но не в том порядке как в DBGrid

Чего делать?

---

← →
GRAND25 ©   (2004-08-09 19:17) [1]

> for i := 1 to DS.RecordCount do begin
>  


А если
 for i := 0 to DS.RecordCount-1 do begin
?

---

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

Форум: "Базы";
Текущий архив: 2004.09.05;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.04 c