DBGrid1->SelectedField->FieldName; //傳回目前選取的欄位名稱
DBGrid1->SelectedField->AsString;  //傳回目前指標所指到的欄位資料
例如有一個欄位名稱為：test
if(Column->FieldName=="test")
  Edit1->Text=Column->Field->AsString;

引言:

DBGrid1->SelectedField->FieldName; //傳回目前選取的欄位名稱
DBGrid1->SelectedField->AsString;  //傳回目前指標所指到的欄位資料
例如有一個欄位名稱為：test
if(Column->FieldName=="test")
  Edit1->Text=Column->Field->AsString;

if (DBGrid1->SelectedField->FieldName=="test") //test為第一個field
   Edit1->Text=DBGrid1->SelectedField->AsString;

引言:

DBGrid1->SelectedField->FieldName; //傳回目前選取的欄位名稱
DBGrid1->SelectedField->AsString;  //傳回目前指標所指到的欄位資料
例如有一個欄位資料為：test
if(Column->FieldName=="test")
  Edit1->Text=Column->Field->AsString;

您好！範例打錯了！ 應改為欄位資料！ 小弟試了一下在 src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=22255252&CC=497728"> 程式碼如下：

void __fastcall TForm1::DBGrid1DblClick(TObject *Sender)
{
   Edit1->Text = DBGrid1->SelectedField->FieldName;
   Edit2->Text=DBGrid1->SelectedField->AsString;
}

小弟都是用資料庫直接輸出到各Edit物件上，沒用過DBGrid輸出到各Edit上！ 所以回答的不好！請見諒！ 小弟的用法： < class="code"> void __fastcall TUserForm::Query1AfterScroll(TDataSet *DataSet) { /* Query1裡面的afterscroll等於OnChange */ Edit4->Text = Query1->FieldByName("UserID")->AsString; Edit5->Text = Query1->FieldByName("UserName")->AsString; Edit6->Text = Query1->FieldByName("Password")->AsString; } 發表人 - cashyy 於 2005/05/16 16:48:05 發表人 - cashyy 於 2005/05/16 16:54:42