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