[求助]我有表A存放列名,类型,长度,标题,表达式,如何用代码产生表B? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]我有表A存放列名,类型,长度,标题,表达式,如何用代码产生表B?

共有2249人关注过本帖树形打印复制链接主题：[求助]我有表A存放列名,类型,长度,标题,表达式,如何用代码产生表B?

tennis

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1433 积分：10763 威望：0 精华：0 注册：2013/3/29 10:23:00

[求助]我有表A存放列名,类型,长度,标题,表达式,如何用代码产生表B? 发帖心情

Post By：2018/5/13 16:42:00 [只看该作者]

如题.

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/13 17:26:00 [只看该作者]

参考

http://www.foxtable.com/webhelp/scr/2122.htm

tennis

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1433 积分：10763 威望：0 精华：0 注册：2013/3/29 10:23:00

Post By：2018/5/13 17:30:00 [只看该作者]

标题,如何在产生表时就加入? 有代码直接更新表中的标题吗?

2900819580

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1353 积分：9868 威望：0 精华：0 注册：2015/6/30 8:46:00

Post By：2018/5/13 17:34:00 [只看该作者]

老师，如何从r("类型")的数值(举例是String) 再赋值给于Gettype（String）或 ADOXType.String

Dim dt As DataTable = DataTables("表C")
Dim tb As Table = Tables("表C")

For Each r As Row In Tables("表名").Rows

If r.IsNull("表达式") Then
    If s = "String" Then
        dt.DataCols.Add(r("列名"),Gettype(r("类型")),r("长度"))
    Else
        dt.DataCols.Add(r("列名"),Gettype(r("类型")))
    End If
Else
    If Gettype(s) = "String" Then
        dt.DataCols.Add(r("列名"),Gettype(r("类型")),r("长度"),r("表达式"))
    Else
        dt.DataCols.Add(r("列名"),Gettype(r("类型")),r("表达式"))
    End If
End If
Next

ADOXType.String