Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.13;
Скачать: CL | DM;

Вниз

Как получить значение записи в таблице, на которой стоит курсор?   Найти похожие ветки 

 
nitro   (2004-05-24 10:12) [0]

Гуру, подскажите, есть Table, есть DBgrid. Курсор стоит на некоторой записи. Как получить это значение?


 
ega23 ©   (2004-05-24 10:15) [1]

FieldByName


 
Sergey   (2004-05-24 13:16) [2]

Судя по вопросу ты такойже новичок как и я
Получить значение текущей записи можно след. образом
A := Table1Field1.Value;
A := Table1.FieldByName("Field1").Value;
A := Table1.FieldByName("Field1").AsString; // AsInteger, AsFloat и т.д.
A := Table1.FieldValues["Field1"];
A := Table1.["Field1"];
A := Table1.Fields.Fields[1].Value;
A := Table1.Fields.Fields[1].AsString; // AsInteger, AsFloat
Я обычно пользуюсь 3 вариантом. Заместо А может стоять например Label1.Caption


 
Соловьев ©   (2004-05-24 13:44) [3]

Логичнее было бы использовать DataSource грида:
Label.Caption := Grid.DataSource.DataSet.FieldbyName("field1").AsString;


 
bushmen ©   (2004-05-24 13:57) [4]

>Соловьев ©   (24.05.04 13:44) [3]
Чем логичнее ?


 
Соловьев ©   (2004-05-24 14:04) [5]


> [4] bushmen ©   (24.05.04 13:57)

так как название Table может поменяться.
Хотя, тут наверное еще логичнее было бы обработать событие у Набора данных OnAfterScroll и там заполнить нужные переменные. :)


 
sniknik ©   (2004-05-24 14:10) [6]

еще логичнее использовать события которые меняют это значение, т.е. если он стоял стоял, а потом вдруг раз и перевстал на другую запись, а у нас сразу свежее значение.
к примеру
procedure TForm1.DBGrid2ColEnter(Sender: TObject);
begin
 Label1.Caption:= TDBGrid(Sender).SelectedField.AsString;
end;

procedure TForm1.ClientDataSet1AfterScroll(DataSet: TDataSet);
begin
 DBGrid2ColEnter(DBGrid2);
end;



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

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

Наверх




Память: 0.48 MB
Время: 0.068 c
14-1085787364
Thor
2004-05-29 03:36
2004.06.13
помогите с бейсиком!


1-1086103097
Anton
2004-06-01 19:18
2004.06.13
Записи


14-1085005749
Snap
2004-05-20 02:29
2004.06.13
Диск Спрайт охота, или как он там назывался у кого нибудь есть?


3-1085464710
Andrey_ck
2004-05-25 09:58
2004.06.13
Работа с ADO


14-1085423991
Drakon
2004-05-24 22:39
2004.06.13
Новый движок форума