以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何用代码得知一个表的结构，并动态生成与其结构相同的零时表？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=149894)
--  作者：蓝色理想
--  发布时间：2020/5/14 17:20:00
--  如何用代码得知一个表的结构，并动态生成与其结构相同的零时表？
请问：
    1、  如何用代码得知一个表的结构

    2、得知结构后是否只有手动用下面的方法建立零时表？

    Dim dr As DataRow
    Dim dtb As New  DataTableBuilder("临时录入表主表") \'创建临时表
    dtb.AddDef("账套期间", Gettype(Date))
    dtb.Build()
--  作者：有点蓝
--  发布时间：2020/5/14 17:27:00
--  
创建和原表结构一样的临时表？
--  作者：蓝色理想
--  发布时间：2020/5/14 18:23:00
--  
谢谢蓝版
再请教一下，  如何用代码得知一个表的结构，这个比较重要，没有这个也没有办法照着原表建立表
--  作者：有点蓝
--  发布时间：2020/5/14 20:10:00
--  
参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=147575&skin=0
--  作者：蓝色理想
--  发布时间：2020/5/14 22:33:00
--  
非常感谢
--  作者：蓝色理想
--  发布时间：2020/5/14 23:12:00
--  
一个新的问题
以下代码，已知是  dtb.AddDef(c.Name, Gettype(c.DataType.Name),c.MaxLength ) 中的 c.DataType.Name 问题，这个变量是字符串，但是 Gettpye需要 的参数是 类型，我测试了只要替换成 string就可以运行，请问蓝版，如何解决这个动态提供变量问题啊。



Dim dr As DataRow
Dim dtb As New  DataTableBuilder("临时表") \'创建临时表

For Each c As DataCol In DataTables("收付合同明细").DataCols
    Output.Show(c.Name & "  "  & c.DataType.Name & "  " & c.MaxLength )
    Dim TempDataType As String = c.DataType.Name
    Select Case c.DataType.Name
        Case "String"
            If c.MaxLength > 255 Then
                dtb.AddDef(c.Name, Gettype(c.DataType.Name),c.MaxLength )
            Else
                dtb.AddDef(c.Name, Gettype(c.DataType.Name),c.MaxLength )
            End If
        Case Else
            dtb.AddDef(c.Name, Gettype(c.DataType.Name))
    End Select
    
    
Next

dtb.Build()
--  作者：有点蓝
--  发布时间：2020/5/14 23:14:00
--  
和3楼用法一样，使用case处理

        Case "String"
            If c.MaxLength > 255 Then
                dtb.AddDef(c.Name, Gettype(String),c.MaxLength )
            Else
                dtb.AddDef(c.Name, Gettype(String),c.MaxLength )
            End If
        Case "integer"
dtb.AddDef(c.Name, Gettype(integer),c.MaxLength )
        Case xxxx
dtb.AddDef(c.Name, Gettype(xxxx),c.MaxLength )
--  作者：蓝色理想
--  发布时间：2020/5/15 9:54:00
--  
c.DataType 她的成员变量中是否有  直接可以引用的成员 ？效果和 引用效果就直接等于  string、integer 等类型？
--  作者：有点蓝
--  发布时间：2020/5/15 9:58:00
--  
没有的
--  作者：蓝色理想
--  发布时间：2020/5/15 10:11:00
--  
蓝版，编辑器中的精灵，自动提示的成员、方法不全，有很多没有提示，有无办法能够看到全部的 成员、方法啊