DBGrid - Zellenwert xy nach Edit kopieren

csonline

Wie kann ich nach einer SQL-Anweisung aus einer DBGRID z.B. 3.Zeile, 4.Spalte in ein Edit z.B. Edit1->Text kopieren ?

[ 17.08.2001: Beitrag editiert von: Jansen ]

Happy Builder

void __fastcall TMainForm::btGetCellContentClick(TObject *Sender)
{
TBookmark SavePos;
SavePos = DBGrid->DataSource->DataSet->GetBookmark();

DBGrid->DataSource->DataSet->First();
DBGrid->DataSource->DataSet->MoveBy(3-1); // In 3. Zeile springen
AnsiString strText = DBGrid->Fields[4-1]->AsString; // Wert in 4. Spalte auslesen
Edit1->Text = strText;

DBGrid->DataSource->DataSet->GotoBookmark(SavePos);
DBGrid->DataSource->DataSet->FreeBookmark(SavePos);
}

------------------
Happy Building
wünscht
Happy Builder
Ein Besuch der sich lohnt: http://www.bcbarena.de