22-09-2013, 02:05 PM
السلام عليكم و رحمة الله تعالى و بركاته:
كود :
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text = '' then Exit;
if Table1.Locate('Num',ComboBox1.Text,[]) then
Edit1.Text:=Table1.FieldValues['LastName'];
end;
وتعاونوا على البر و التقوى ، ولا تعاونوا على الاثم والعدوان