以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]根据A表的数据自动创建临时表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130020)
--  作者：allenyen
--  发布时间：2019/1/11 10:07:00
--  [求助]根据A表的数据自动创建临时表

如何根据图A的数据
图片点击可在新窗口打开查看此主题相关图片如下：企业微信截图_15471720791553.png
图片点击可在新窗口打开查看

自动生成一张列名为图A列名  数据类型为图A类型的临时表
--  作者：有点甜
--  发布时间：2019/1/11 10:16:00
--  

参考

 

Dim dtb As New DataTableBuilder("test")
For Each dr As DataRow In DataTables("表A").Select("第一列 is not null")
    If dr("第二列") = "字符" Then
        dtb.AddDef(dr("第一列"), Gettype(String), 32)
    ElseIf dr("第二列") = "数值" Then
        dtb.AddDef(dr("第一列"), Gettype(Double))
    End If
Next
dtb.Build()
MainTable= Tables("test")