Подскажите, пожалуйста как перенести выделенную строку в DBGrid в StringGrid
Работаю под Debian
Модератор: Модераторы
FedeX писал(а):Grid.Cells[Grid.Col,Grid.Row]?
Grid.Rows[Grid.Row].Text?
property SelectedField: TField read GetCurrentField write SetCurrentField;
svk12 писал(а):У TDBGrid'а есть
- Код: Выделить всё
property SelectedField: TField read GetCurrentField write SetCurrentField;
for i:=0 to DBGrid1.Columns.Count-1 do
StringGкid1.Cell[i,Row]:=DBGrid1.DataSource.DataSet.FieldByName(DBGrid1.Columns[i].FieldName).Value;
dbGrid1.SelectedIndex:= 0; //здесь можно указать любой номер столбца выделенной строки, в случае необходимости можно пустить по циклу и вытащить значения всех строк
ShowMessage(dbGrid1.SelectedField.AsString); //для себя выводил это сообщением, просто чтобы понять работает или нет
avis писал(а):dbGrid1.SelectedIndex:= 0; //здесь можно указать любой номер столбца выделенной строки, в случае необходимости можно пустить по циклу и вытащить значения всех строк
ShowMessage(dbGrid1.SelectedField.AsString); //для себя выводил это сообщением, просто чтобы понять работает или нет
for i:=0 to DS.Fields.Count-1 do
ShowMessage(DS.Fields[i].AsString); //для себя выводил это сообщением, просто чтобы понять работает или нет [/quote]
alexs писал(а):avis писал(а):dbGrid1.SelectedIndex:= 0; //здесь можно указать любой номер столбца выделенной строки, в случае необходимости можно пустить по циклу и вытащить значения всех строк
ShowMessage(dbGrid1.SelectedField.AsString); //для себя выводил это сообщением, просто чтобы понять работает или нет
Ребята - НЕЛЬЗЯ ТАК ДЕЛАТЬ!!!!!
- Код: Выделить всё
for i:=0 to DS.Fields.Count-1 do
ShowMessage(DS.Fields[i].AsString); //для себя выводил это сообщением, просто чтобы понять работает или нет [/quote]
где DS это подключенный к гриду набор данных.
Вы б ещё через луну звонить стали...
Сейчас этот форум просматривают: Google [Bot] и гости: 248