2 Listbox y BD ....

[[Lepe]]

Quizás no he entendido muy bien el tema, pero a ver que parece esto:

Código Delphi [-]
  for i:=0 to listbox3.items.count-1 do
  if  table4.FindField('Exp'+inttostr(i)) <> nil  then // si existe el campo
  begin
    table4.Insert;
    table4.FieldByname('Exp'+inttostr(i)).AsString:=listbox3.Items[i];
    table4.Post;
  end
  else
    ShowMessage(' uuuuppss, el campo Exp'+inttostr(i) + ' no existe ');

Otra posibilidad es crearte una tabla llamada "Expresiones" con 2 campos, una de código (para relacionar con la tabla maestra), y otra con las expresiones del tipo "Exp1".."Exp15"

Saludos y espero que vayan los tiros por aqui.