Hi,
TDBAdvSmoothListBox 2.5.0.2
how gets the current selected record?
procedure TfrAdressen.DBAdvSmoothListBoxItemClick(Sender: TObject;
itemindex: Integer);
var con: TServerMethods1Client;
dataSet:TDataSet;
begin
if not dm0.DataSnapServer.Connected then dm0.DataSnapServer.Connected := true;
itemindex: Integer);
var con: TServerMethods1Client;
dataSet:TDataSet;
begin
if not dm0.DataSnapServer.Connected then dm0.DataSnapServer.Connected := true;
con := TServerMethods1Client.Create(dm0.DataSnapServer.DBXConnection);
try
dataSet := con.getAdrFirma(DBAdvSmoothListBox.DataSource.DataSet.FieldByName('adressnr').AsInteger); <<< does not work.
if (dataSet<>nil) then
begin
dm0.dspFirma.DataSet := dataSet;
if dm0.cdsFirma.Active
then dm0.cdsFirma.close;
dm0.cdsFirma.Open;
end;
finally
con.Free;
end;
try
dataSet := con.getAdrFirma(DBAdvSmoothListBox.DataSource.DataSet.FieldByName('adressnr').AsInteger); <<< does not work.
if (dataSet<>nil) then
begin
dm0.dspFirma.DataSet := dataSet;
if dm0.cdsFirma.Active
then dm0.cdsFirma.close;
dm0.cdsFirma.Open;
end;
finally
con.Free;
end;
end;
thanks a lot,
Kostas