//No.1
ListBox1.Clear;
Table1.First;
while not Table1.Eof do begin
ListBox1.Items.Add(Table1.FieldByName('value2').AsString);
Table1.Next;
end;
ListBox1.Clear;
Table1.First;
while not Table1.Eof do begin
ListBox1.Items.Add(Table1.FieldByName('value2').AsString);
Table1.Next;
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
if TListBox(Sender).ItemIndex < 0 then Exit;
Table2.Filtered := False;
Table2.Filter := Format('val1=%s', [
QuotedStr(TListBox(Sender).Items[TListBox(Sender).ItemIndex])]);
Table2.Filtered := True;
end;
Table2.First;
while not Table2.Eof do begin
Table3.Append;
Table3['data1'] := Table2['val2'];
// Table3['data2'] := ?;
Table2.Next;
end;