If I understand correctly what you want - You have the property value already in the column name so you can could get it from there:
Names Default To Here(1);
dt = New Table("Untitled",
	Add Rows(3),
	Compress File When Saved(1),
	New Column("A1 (B1) [C1]",
		Character,
		"Nominal",
		Set Values({"Value 11", "Value 12", "Value 13"})
	),
	New Column("A2 (B2) [C2]",
		Character,
		"Nominal",
		Set Values({"Value 21", "Value 22", "Value 23"})
	)
);
colNames = dt << Get Column Names("String");
For(i = 1, i <= N Items(colNames), i++,
	aVal = Word(1, colNAmes[i]);
	Column(dt, colNames[i]) << Set Property("A_property", aVal);
);
					
				
			
			
				
	-Jarmo