我在table 的afterscroll事件寫 borrowform.DateTimePicker1.Date:=DataModule1.CDS_Borrow.FieldByName('date_borrow').AsDateTime; 但會出現 you must be in showcheckbox mode to set this date 請問時什麼意思程式要做怎樣的修改

BOSS你好: 他的意思是說,當table 在捲動的時候不能將你指定的 FieldByName('date_borrow').AsDateTime的值給DateTimePicker1 因為他找不到焦點,所以他要求你you must be in showcheckbox modeto set this date 在明顯的指定後,才允許給值 建議你在 .... ... Table1.Open;//後在加入 borrowform.DateTimePicker1.Date:=DataModule1.CDS_Borrow.FieldByName('date_borrow').AsDateTime;

------
======================
昏睡~
不昏睡~
不由昏睡~

ko您好 如果改成這樣寫是不是也可以呢

if DataModule1.CDS_Borrow.isempty=false then
  borrowform.DateTimePicker1.Date:=DataModule1.CDS_Borrow.FieldByName('date_borrow').AsDateTime

另外在請教,我有在formshow上寫 DateTimePicker1.Date:=date; 但當我新增資料時,DateTimePicker1並不會顯示今天的日期這又是為什麼

引言: 我在table 的afterscroll事件寫 borrowform.DateTimePicker1.Date:=DataModule1.CDS_Borrow.FieldByName('date_borrow').AsDateTime; 但會出現 you must be in showcheckbox mode to set this date 請問時什麼意思程式要做怎樣的修改

您將DateTimePicker1屬性中的showcheckbox設為True

引言: 另外在請教,我有在formshow上寫 DateTimePicker1.Date:=date; 但當我新增資料時,DateTimePicker1並不會顯示今天的日期這又是為什麼

您是要新增資料時，才將DateTimePicker1.Date:=date;所以您不能寫在formshow，應該寫DataSet的NewRecord事件即可。 ~小弟淺見，參考看看~

channel兄 我照你的方法去做但依然不會顯示今天日期 可是我將afterscroll事件拿掉後就可以了 真是奇怪

你可以把事件寫在table 的onChange事件看看.. 發表人 - chih 於 2003/02/26 20:35:51

各位前輩 我想我知道錯在哪了我在afterscroll寫 borrowform.DateTimePicker1.Date:=DataModule1.CDS_Borrow.FieldByName('date_borrow').AsDateTime 也在newrecord寫 borrowform.DateTimePicker1.Date:=date 雖然我有在newrecord寫事件,但當我去新增一筆資料時程式會先觸發newrecord 但因為新增一筆table也捲動了所以又觸發afterscroll此時DataModule1.CDS_Borrow.FieldByName('date_borrow').AsDateTime是空值 所以DateTimePicker1無法顯示今天日期 因此我將程式改為

  if DataSet.State= dsBrowse then
  begin
    BorrowForm.ComboBox1.Text:=CDS_Borrow.FieldByName('emp_no').AsString;
    BorrowForm.ComboBox2.Text:=CDS_Borrow.FieldByName('name').AsString;
    BorrowForm.DateTimePicker1.Date:=CDS_Borrow.FieldByName('date_borrow').AsDateTime;
  end
  else
  begin
    BorrowForm.DateTimePicker1.Date:=Date;
  end;

不知道我的想法是否正確,請各位前輩指教

引言:channel兄 我照你的方法去做但依然不會顯示今天日期 可是我將afterscroll事件拿掉後就可以了 真是奇怪

Sorry,忘了您在afterscroll的事件有寫borrowform.DateTimePicker1.Date:=DataModule1.CDS_Borrow.FieldByName('date_borrow').AsDateTime; 所以您應該在DataSet的NewRecord事件改寫為DataModule1.CDS_Borrow.FieldByName('date_borrow').AsDateTime := Date; 因為當您新增一筆資料時先觸發NewRecord事件，之後也會觸發afterscroll事件，所以您必須在新增時將今天的日期給TField，而不是給DateTimePicker1。這樣應該就沒問題了，有問題再問吧! ~小弟淺見，參考看看~ 發表人 - channel 於 2003/02/27 10:05:15

引言:

  if DataSet.State= dsBrowse then  
  begin
    BorrowForm.ComboBox1.Text:=CDS_Borrow.FieldByName('emp_no').AsString;
    BorrowForm.ComboBox2.Text:=CDS_Borrow.FieldByName('name').AsString;
    BorrowForm.DateTimePicker1.Date:=CDS_Borrow.FieldByName('date_borrow').AsDateTime;  
  end
  else  
  begin
    BorrowForm.DateTimePicker1.Date:=Date;
  end;

Boss兄： 您這樣寫也未嘗不可。參考一下我上一篇的作法吧? ~小弟淺見，參考看看~

解決了嗎? BOSS你是要再新增時,把DateTimePicker1中的時間變成今天,還是新增完成後變成今天?

------
======================
昏睡~
不昏睡~
不由昏睡~

ko兄 我是要再新增時將,把DateTimePicker1中的時間變成今天 不過我已經解決了 謝謝各位前輩的指導