Описание поля [D6, MS Access]
eLVik © (2004-08-09 16:10:00)
Пишу такой обработчик, чтоб получить описание поля
procedureTfmDatabase.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;
fori := 1
toDS.RecordCount
do begin
DS.RecNo := i;
Memo1.Lines.Add(DS.FieldValues['Description'])
end;
в Memo записаны описания полей, но не в том порядке как в
DBGrid
Чего делать?
GRAND25 (2004-08-09 19:17:00) [1]
> for i := 1 to DS.RecordCount do begin
>
А если
for i := 0 to DS.RecordCount-1 do begin
?
Наверх 
ЧАТ |
Орешник |
|
