How can I show in combobox the values when i select from TableGrid?

Hello v_pozidis,
I have added the line to your script to show how this can be done.
I have also changed your script a bit - you don't actually need to use a variable ('s'), you can just select the value directly into the field (edit1, edit2, combobox1 etc).
I hope this helps,
Derek.

What if  we have and another combobox that is a PaerntCombobox how does it works there ?
My new example is attached added with another combobox.
Derek I need again your help.
Thank you friend.

I Couldn't think this solution.Thank's Dmitry.

help needed please!!!

I RESEND YOU MY EXAMPLE WITH THE TWO NEW TABLES AND I HAVE ALSO CREATEED THE FORM HOW I WANT THEM.

Check it out

I have added a search button. It works only when I choose all the comboboxes. It does't works choosing separately comboboxes. Let's say I like to search the country only or the country and the city.I send you my software to help me again.

But when I search in the Editbox it doesn't work, It works only with the comboboxes. And another question in case a add table work with relationship on names how does it works on the sql search ? Sorry can not send you example something happens on my pc and doesn't boot writting on android tablet

Is this correct
WHERE

names.LastName lLike {Edit1} AND
(CASE WHEN {Wo} <> -1 THEN Work.id_Work = {Wo} ELSE 1=1 END) AND

(CASE WHEN {cbZip} <> -1 THEN names.id_Tk = {cbZip} ELSE 1=1 END) AND
(CASE WHEN {cbArea} <> -1 THEN Tk.id_Area = {cbArea} ELSE 1=1 END) AND
(CASE WHEN {cbCity} <> -1 THEN Area.id_City = {cbCity} ELSE 1=1 END) AND
(CASE WHEN {cbCountry} <> -1 THEN City.id_Countr = {cbCountry} ELSE 1=1 END)

Updated, my new example is the attached file. I have added a new table Work. In the SQL Search button it should work also wih the edit boxex and the new combobox (Work).

Because I am not sure if the new lines I have added in the paragraph //new lines which you will see in my project. Can you confirm  if they are correct ?

s := SQLExecute('SELECT Lastname from names WHERE id=' + IntToStr(Form1.TableGrid1.dbItemID));
    Form1.edLastName.Text := s;

    s := SQLExecute('SELECT SName from names WHERE id=' + IntToStr(Form1.TableGrid1.dbItemID));
    Form1.edSName.Text := s;

  Form1.cbWork.dbitemid := SQLExecute('select names.id_Work from Work LEFT OUTER JOIN names ON names.id_Work = Work.id WHERE names.id='+ Form1.tablegrid1.sqlValue);