以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  老师,如何导出外部表的数据结构?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147575)
--  作者：nxhylczh
--  发布时间：2020/3/19 19:14:00
--  老师,如何导出外部表的数据结构?
老师,如何成批导出外部表的结构至内部表,内部表格式: 表名  字段名  类型  长度  备注
我用的是Access.




[此贴子已经被作者于2020/3/19 19:16:10编辑过]
--  作者：有点蓝
--  发布时间：2020/3/20 9:01:00
--  
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