主题：老师,如何导出外部表的数据结构?

For Each dt As DataTable In DataTables

    For Each c As DataCol In dt.DataCols

        Dim dr As DataRow = DataTables("管理").AddNew

        dr("表名") = dt.Name

        dr("列名") = c.Name

        dr("长度") = c.MaxLength

        Select Case c.DataType.Name

            Case "String"

                If c.MaxLength > 255 Then

                    dr("类型") = "备注"

                Else

                    dr("类型") = "字符"

                End If

            Case "DateTime"

                dr("类型") = "日期时间"

            Case "Boolean"

                dr("类型") = "逻辑"

            Case "Int32"

                dr("类型") = "整数"

            Case "Int16"

                dr("类型") = "短整数"

            Case "Byte"

                dr("类型") = "微整数"

            Case "Double"

                dr("类型") = "双精度"

            Case "Single"

                dr("类型") = "单精度"

            Case "Decimal"

                dr("类型") = "高精度"

        End Select

    Next

Next