以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  外部数据库增加表后不能显示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160858)
--  作者：2425004926
--  发布时间：2021/2/24 10:22:00
--  外部数据库增加表后不能显示
ACCESS数据库加增加表后，数据库里已增加成功，重新打开项目，表并没有显示在标题，在外部数据表管理里也看不到这个增加的表？
Dim tx As String  = e.Form.Controls("TextBox2").text
If tx = "" Then
    MessageBox.Show("表名称不能为空!","提示")
ElseIf PY.IsHanzi(left(tx,1)) = False Then   \'第一个字符不是汉字时
    MessageBox.Show("表名称开头字符必须为汉字!","提示")
Else
    Dim Builder As New ADOXBuilder("统计")
    Dim tbl As ADOXTable
    Builder.Open()
    tbl = Builder.NewTable(tx) \'创建表
    With tbl
        For Each r As Row In Tables("增加表")
            If r("类型") = "字符" Then
                .AddColumn(r("列名称") ,ADOXType.String, r("长度"))
            ElseIf r("类型") = "日期" Then
                .AddColumn(r("列名称") ,ADOXType.DateTime)
            ElseIf r("类型") = "数字" Then
                .AddColumn(r("列名称") ,ADOXType.Integer)
            ElseIf r("类型") = "备注" Then
                .AddColumn(r("列名称") ,ADOXType.Text)
            Else
                Exit For
            End If
        Next
    End With
    Builder.AddTable(tbl) \'增加表
    Builder.Close()
    e.Form.close()
    e.Cancel = True   \'不加这个重启动后会发生错误
    Syscmd.Project.Open(ProjectFile)
End If
--  作者：有点蓝
--  发布时间：2021/2/24 10:24:00
--  
代码添加的外部表是不会自动添加到外部表管理中的，需要自己手动添加。
--  作者：2425004926
--  发布时间：2021/2/24 11:00:00
--  
 我是想重新打开项目后这个表直接可以加载进来，就像显示表A、表B、表C一样，我作了一个自动的导航按钮，等于系统增加一个表后，导航自动就增加了这个表的标题，点击就可以编辑这个表了，现在是ACCESS数据库只增加了表，却看不到
--  作者：有点蓝
--  发布时间：2021/2/24 11:11:00
--  
没有办法
--  作者：wei0769
--  发布时间：2021/4/30 15:03:00
--  
对比ft里的 datatable 与 access 里表的差别,如果没有,就用命令加载