获取列类型,参考
Dim tb As DataTable = DataTables("表A")
For Each dc As object In tb.basetable.columns output.show(dc.ColumnName & " " & dc.DataType.name)Next