For Each dc As DataCol In DataTables("订单").DataCols If dc.IsNumeric Then Output.Show(dc.Name) End IfNext
这是摘抄帮助中的例子