Henry Olive

Thank you so much Vandrovnik, Attila

I wish everyone a healthy day. I have a DBGrid and one of a column has Pick List I fill the pick list like first proc. and read the picklist values in second proc. procedure TForm1.DBGrid2ColEnter(Sender: TObject); if DBGrid2.SelectedField <> CDS1.FieldByName('WSNAME') then Exit; while not MyQry.Eof do begin DBGrid2.Columns[ColIndex].PickList.AddObject(MyQry.Fields[1].AsString, Pointer(MyQry.Fields[0].AsString)); MyQry.Next; end; procedure TForm1.DBGrid2ColExit(Sender: TObject); var Inx:Integer; begin if DBGrid2.SelectedField <>CDS1.FieldByName('WSNAME') then Exit; Inx:=DBGrid2.Columns[2].PickList.IndexOf('WSNAME'); //problem is here i get always -1 here CDS1.FieldByName('WSNO').AsString:=IntToStr(Inx); end; what is wrong ? Thank You

Thank you so much Lajos, EMailx45

Thank you so much FPiette , Lajos Sorry for my poor english I'm adding WSNO (String) and WSNAME (String) fields values in to a picklist (by a query) with below code DBGrid2.Columns[ColIndex].PickList.AddObject(MyQry.Fields[1].AsString,Pointer(MyQry.Fields[0].AsString)); so, in the pick list just WSNAME field values are visible ( MyQry.Fields[1] ) When user choose a WSNAME in the pick list, i need to get WSNO and WSNAME values (choosen by user) ; P.S = If i was dealed same thing with a combobox then i would write below code WSNO:=IntToStr(Integer(Combobox1.Items.Objects[Combobox1.ItemIndex])); Thank You

I wish everyone a healthy day I'm getting multiple rows in singleton select err.msg. UPDATE ORDERS O SET O.DELVTOTAL= (SELECT(OD.QTY - OD.REMQTY) * OD.UPRICE FROM ORDETAIL OD WHERE O.ID=OD.ID) WHERE EXISTS (SELECT 1 FROM ORDETAIL OD WHERE O.ID = OD.ID AND O.STATUS='Partial Delivery') what is wrong ? Thank You

Yes, Thank so much Attila