主题：代码查看表结构

For Each co1 As DataCol In DataTables("表A").DataCols

    If co1.IsString Then

        output.show(co1.Name & "，字符，" & co1.MaxLength)

    ElseIf co1.IsNumeric Then

        If co1.datatype.Tostring = "System.Int32" Then

            output.show(co1.Name & "，整数")

        ElseIf co1.datatype.Tostring = "System.Double" Then

            output.show(co1.Name & "，双精度")

        End If

    ElseIf co1.IsDate Then

        output.show(co1.Name & "，日期")

    ElseIf co1.IsBoolean Then

        output.show(co1.Name & "，逻辑")

    End If

Next