مشكل ذخيره با DBComboBox

[ali_abbasi22145]

سلام
من كليد F7 را براي راحتي كار ذخيره كاربر نوشته ام كه خود كاربرانم از من خواسته اند.
حال در DBComboBox ها وقتي "ت" يا "ته" را كاربر تايپ مي كند كلمه "تهران" مي آيد و وقتي كليد F7 كاربر مي زند DBComboBox خالي مي گردد و چيزي ذخيره نمي كند اما DBEdit ها هيچ مشكلي ندارند.
به عكس نگاه كنيد مي بينيد كه كلمه "تهران" انتخاب شده و بعد حذف گرديده است.
اينهم كد من در OnKeyUp

if key = DBComboBox problemwindows.VK_F7 then
begin
if MainForm.ADOTable1.State in [dsInsert,dsEdit] Then
MainForm.ADOTable1.Post;
if MainForm.ADOTable2.State in [dsInsert,dsEdit] Then
MainForm.ADOTable2.Post;

PageControl1.TabIndex := 1;
If( (Employee_number.Visible = True) and (Employee_number.Enabled = True ) )then
DynamicForm.Employee_number.SetFocus
else if( (Id.Visible=True) and (Id.Enabled=True) ) then
DynamicForm.Id.SetFocus
else if( (national_code.Visible=True) and (national_code.Enabled=True) ) then
DynamicForm.national_code.SetFocus
else exit;

end;

[دنیای دلفی]

آره اين يك مشكل عمومي است من هم با آن خيلي ور رفتم و اينجوري حلش كردم در رويداد BeforePost جدول خود از اين كد استفاده يا ايده بگير :


For ii := 0 To ComponentCount-1 Do
If Components[ii] is TDBCombobox Then
TDBCombobox(Components[ii]).Field.Value:=TDBCombobox(Components[ii]).Text;


اينجوري مشكل شما حل ميشه

[ali_abbasi22145]

سلام
متشكر دوست قديمي من، مشكلم حل شد!