各位前輩您們好:     我想請問您們，我是在做一個教師空堂資料表，把一週五天、一天八堂課利用BinBtn排成四十個，代表一週裡有四十堂課，如果我點選BinBtn，它第一次會出現空堂，第二次為空白，那當它顯示為空堂時，我按儲存的BinBtn之後，要如何讓它代表的時間值自動儲存到DBGrid裡的Teacher_free這個欄位(Fields[1])裡去呢?上面還有一個lable代表的日期，星期一顯示為11/17，所以當你點選第一個BinBtn，會顯示的代表時間值為111711，代表11/17日的星期一的第一節。而111712代表11/17日星期一第二節，以此類推。    因此，簡單的說，按第一個BinBtn為空堂時，儲存到DBGrid裡的Teacher_free(Fields[1])的值要為111711。而這個程式碼要如何寫呢？ 令我百思不得其解，請各位前輩幫幫忙，感激不盡!!

引言: 各位前輩您們好: 我想請問您們，我是在做一個教師空堂資料表，把一週五天、一天八堂課利用BinBtn排成四十個，代表一週裡有四十堂課，如果我點選BinBtn，它第一次會出現空堂，第二次為空白，那當它顯示為空堂時，我按儲存的BinBtn之後，要如何讓它代表的時間值自動儲存到DBGrid裡的Teacher_free這個欄位(Fields[1])裡去呢?上面還有一個lable代表的日期，星期一顯示為11/17，所以當你點選第一個BinBtn，會顯示的代表時間值為111711，代表11/17日的星期一的第一節。而111712代表11/17日星期一第二節，以此類推。 因此，簡單的說，按第一個BinBtn為空堂時，儲存到DBGrid裡的Teacher_free(Fields[1])的值要為111711。而這個程式碼要如何寫呢？ 令我百思不得其解，請各位前輩幫幫忙，感激不盡!! < face="Verdana, Arial, Helvetica"> 提供您一個方法，您參考看看： 利用TBitBtn的Tag屬性記錄您要儲存在Teacher_free這個欄位的值 例如：第一個BinBtn可以將Tag設為111711，第二個設為111712，以此類推。 在每個BitBtn的Click事件寫上：

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  DBGrid.DataSource.DataSet.Edit;
  DBGrid.DataSource.DataSet.FieldByName('Teacher_free').AsString := IntToSTr(TBitBtn(Sender).Tag);
  DBGrid.DataSource.DataSet.Post;
end;

大概的方法是這樣，您試試看唄… ~小弟淺見，參考看看~

感謝channel前輩的指導，我試了您的方法之後，果然可以把111711裡BitBtn的值存入到DBGrid裡去了，但是我只要按第二個BinBtn所代表的111712的值，就會覆蓋住原先111711的值，永遠只停留第一筆資料而已，我想要讓DBGrid存入多筆資料，可以嗎?恕小妹我愚昧，請前輩再予以指導，感激不盡!!

引言: 感謝channel前輩的指導，我試了您的方法之後，果然可以把111711裡BitBtn的值存入到DBGrid裡去了，但是我只要按第二個BinBtn所代表的111712的值，就會覆蓋住原先111711的值，永遠只停留第一筆資料而已，我想要讓DBGrid存入多筆資料，可以嗎?恕小妹我愚昧，請前輩再予以指導，感激不盡!! < face="Verdana, Arial, Helvetica"> 因為是用DBGrid.DataSource.DataSet.Edit;當然會覆蓋住原先111711的值，永遠只停留第一筆資料而已。您的意思是要每按一個TBitBtn就要新增一筆記錄嗎?如果是，那就這樣做吧…

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  DBGrid.DataSource.DataSet.Append;
  DBGrid.DataSource.DataSet.FieldByName('Teacher_free').AsString := IntToSTr(TBitBtn(Sender).Tag);
  DBGrid.DataSource.DataSet.Post;
end;

~小弟淺見，參考看看~

謝謝channel前輩的指導，已經可以使用了^_^~~~~不好意思，因為最近繁忙，所以到現在才回覆。真是謝謝你的指導!!