我有寫了一段小程式, 有關使用dbcheckbox, 我在程式中直接做checked的動作. 不過當我按存檔後卻發現這個field值沒被存下來, 不知是否有少了什麼動作, 請各位先幫忙解答... 謝謝... ----------------------- procedure TForm1.DBEdit4Exit(Sender: TObject); begin    if dbedit4.Text = '' then exit;       if dbedit4.Text < dbedit3.Text then    begin      showmessage('還回日不可小於送修日');      dbedit4.SetFocus;    end    else       DBCheckBox1.Checked  := True end; -------------------------------------------

procedure TForm1.DBEdit4Exit(Sender: TObject); begin if Query1.State=dsBrowse then exit;//在瀏覽狀態就不作檢查 if dbedit4.Text = '' then exit; if dbedit4.Text < dbedit3.Text then begin showmessage('還回日不可小於送修日'); dbedit4.SetFocus; exit; end else DBCheckBox1.Checked := True; end; TRY TRY SEE

對不起, 可能是我說得不夠明確, 我把圖形傳上, 有勞各位了.     發表人 - a993435 於 2003/05/22 11:36:04

引言: 我有寫了一段小程式, 有關使用dbcheckbox, 我在程式中直接做checked的動作. 不過當我按存檔後卻發現這個field值沒被存下來, 不知是否有少了什麼動作, 請各位先幫忙解答... 謝謝... ----------------------- procedure TForm1.DBEdit4Exit(Sender: TObject); begin if dbedit4.Text = '' then exit; if dbedit4.Text < dbedit3.Text then begin showmessage('還回日不可小於送修日'); dbedit4.SetFocus; end else DBCheckBox1.Checked := True end; ------------------------------------------- < face="Verdana, Arial, Helvetica">

procedure TForm1.DBEdit4Exit(Sender: TObject);
begin
  if TDBEdit(Sender).DataSource.DataSet.State in [dsInsert,dsEdit] then
  begin
    if dbedit4.Text = '' then 
      exit;
    if dbedit4.Text < dbedit3.Text then
    begin
      showmessage('還回日不可小於送修日');
      dbedit4.SetFocus;
    end
    else
      DBCheckBox1.DataSource.DataSet.FieldByName(DBCheckBox1.DataField).Value := DBCheckBox1.ValueChecked;
  end;
end;
~小弟淺見，參考看看~

部分參考channel兄所寫

procedure TForm1.DBEdit4Exit(Sender: TObject);
begin
if TDBEdit(Sender).DataSource.DataSet.State in [dsBrowse] then exit;
if dbedit4.Text = '' then exit;
if dbedit4.Text < dbedit3.Text then
begin
showmessage('還回日不可小於送修日');
dbedit4.SetFocus;
exit;
end
else
begin
DBCheckBox1.Checked := True;
DBCheckBox1.DataSource.DataSet.FieldByName(DBCheckBox1.DataField).Value := DBCheckBox1.Checked;
end;
end;

TRY TRY SEE 發表人 - chih 於 2003/05/22 11:56:37

嗯! 那我知道了. 也就是說, 雖然它是dataware的元件, 但是表面的存取並不能啟動它, 而必須用到 dataset 的方式. 這樣說對嗎? 基本上只要用 channel 兄的方法, 就可以了. 它會自動 checked. 謝謝各位的熱心解答.....

引言: 嗯! 那我知道了. 也就是說, 雖然它是dataware的元件, 但是表面的存取並不能啟動它, 而必須用到 dataset 的方式. 這樣說對嗎?沒有錯，聰明 基本上只要用 channel 兄的方法, 就可以了. 它會自動 checked. 謝謝各位的熱心解答.....