아래 소스의 문제점 해결을 부탁드립니다.

폼의 내용은 rxlib2.75를 사용하였습니다.

dateedit1 에 날짜를 선택하면 저장이 잘됩니다. 그리고 dbdateedit로 그

날짜값이 잘 표현이 됩니다.

그런데 dbdateedit1 에서 입력이 되지를 않는군요...

에러는 발생하지 않았습니다...

도움을 요청합니다.







unit DBtest;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Db, DBTables, StdCtrls, Mask, ToolEdit, RXDBCtrl, DBCtrls;



type

TForm1 = class(TForm)

Table1: TTable;

DataSource1: TDataSource;

DBEdit1: TDBEdit;

DateEdit1: TDateEdit;

DBDateEdit1: TDBDateEdit;

procedure DBDateEdit1Click(Sender: TObject);

procedure DBDateEdit1KeyPress(Sender: TObject; var Key: Char);

procedure DBDateEdit1Change(Sender: TObject);

procedure DateEdit1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;





implementation



{$R *.DFM}



procedure TForm1.DBDateEdit1Change(Sender: TObject);

begin

with table1 do

begin

try

last;

append;

fieldbyname('testdate').value := dbdateedit1.text;

updateRecord;

post;

except

cancel;

raise;

end; // try

end; // with

end;



procedure TForm1.DateEdit1Change(Sender: TObject);

begin

with table1 do

begin

try

last;

append;

fieldbyname('testdate').value := dateedit1.text;

updateRecord;

post;

dbdateedit1.text := fieldbyname('testdate').asstring;

except

cancel;

raise;

end; // try

end; // with







end;



end.