Duh, sorry I JMPed in too early.  But just in case that's the only route that'll give you the formatting, here is a utility:
Data Table To Table Box = Function({dt},{Default Local},
	tb = Table Box();
	For (i=1,i<=NCols(dt),i++,
		col = Column(dt,i);
		colName = col << Get Name;
		lstValues = col << Get Values;
		type = col << Get Data Type;
		If (type=="Character",
			tb << Append(
				String Col Box(colName,lstValues)
			)
		,
			tb << Append(
				Number Col Box(colName,lstValues)
			)
		);
	);
	// return
	tb
);
					
				
			
			
				
	-Dave