谁来开发一个直接建表的程序 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 谁来开发一个直接建表的程序

共有4296人关注过本帖树形打印复制链接主题：谁来开发一个直接建表的程序

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/13 14:47:00 [显示全部帖子]

这个功能，是可以开发的，你弄一个也不是很麻烦，就根据2楼的去做。

而且现在能load表格了，也不用关闭打开项目了。

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/14 9:18:00 [显示全部帖子]

1、afterOpenproject之后设置进去；

2、类型太少或太多会和别的工具，比如 access等不匹配，转型过来的人会引起混淆。

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/14 14:12:00 [显示全部帖子]

以下是引用supwork在2015/5/14 13:58:00的发言：
afterOpenproject之后设置进去；能给个代码示例不

http://www.foxtable.com/help/topics/1275.htm

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/14 19:42:00 [显示全部帖子]

DataTables.Contrains("表A")

DataTables("表A").DataCols.Contains("第一列")

---------------------

如果你在 FS_XTJB 表有记录，你可以直接用find函数查找是否已经存在啊

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/14 19:52:00 [显示全部帖子]

Dim say As String = Tables("Systablename").Current("FSSXTtable")
If say IsNot Nothing Then
    Dim r As Row = Tables("FS_XTJB").addnew()
    r("FSSTableName")= say

    If DataTables.Contains(say) = False Then

        Dim Builder As New ADOXBuilder("HCCL") '要指定数据源名称
        Dim tbl As ADOXTable
        Builder.Open()
        tbl = Builder.NewTable(say) '创建表
        With tbl
            .AddColumn("FSS1" ,ADOXType.String, 20)
            .AddColumn("FSS2" ,ADOXType.String, 20)
        End With

        Builder.AddTable(tbl, True, True) '增加表
        Builder.Close()
        DataTables.Load(say)
    End If
End If

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/14 19:53:00 [显示全部帖子]

Dim say As String = Tables("Systablename").Current("FSSXTtable")
If say IsNot Nothing Then
    Dim r As Row = Tables("FS_XTJB").addnew()
    r("FSSTableName")= say

    If DataTables("FS_XTJB").Find("FSSTableName = '" & say & "'") Is Nothing Then

        Dim Builder As New ADOXBuilder("HCCL") '要指定数据源名称
        Dim tbl As ADOXTable
        Builder.Open()
        tbl = Builder.NewTable(say) '创建表
        With tbl
            .AddColumn("FSS1" ,ADOXType.String, 20)
            .AddColumn("FSS2" ,ADOXType.String, 20)
        End With

        Builder.AddTable(tbl, True, True) '增加表
        Builder.Close()
        DataTables.Load(say)
    End If
End If