No, si te he entendido perfectamente, el que creo que no me has entendido eres tu a mi (quizás es que no me he explicado demasiado bien)
Veamos
Yo creo dos campos calculados que seran DescripcionProvincia y DescripcionLocalidad de tipo alfanumerico, ok??
Bien, ahora en el OnClacFields de la tabla en cuestion (la que tienes el 12005) haces lo siguiente :
Código:
procedure TForm1.Table1CalcFields(DataSet: TDataSet);
var
tmp: string;
begin
tmp := copy(TablaCampoCompuesto.AsString, 1, 2);
if TablaProvincia.FindKey([tmp]) then
Tabla1DescripcionProvincia.AsString := TablaProvinciaDescipcion.AsString
else
Tabla1DescripcionProvincia.AsString := '';
tmp := copy(TablaCampoCompuesto.AsString, 3, 4);
if TablaLocalidad.FindKey([tmp]) then
Tabla1DescripcionLocalidad.AsString := TablaLocalidadDescipcion.AsString
else
Tabla1DescripcionLocalidad.AsString := '';
end;
Bueno, esto haciendolo con Tablas y FindKey. Personalmente lo haria con una Query, pero para que veas la idea ya vale
Espero me hayas entendido ahora