以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  老师帮助看一下为啥创建表报错？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=136491)
--  作者：xxfoxtable
--  发布时间：2019/6/14 13:24:00
--  老师帮助看一下为啥创建表报错？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar

代码在项目事件里
--  作者：有点甜
--  发布时间：2019/6/14 15:00:00
--  

If Connections("a").GetTableNames.contains("客户档案") Then
    msgbox(1)
Else
    Dim Builder As New ADOXBuilder("a") \'要指定数据源名称
    Dim tbl As ADOXTable
    Builder.Open()
    tbl = Builder.NewTable("客户档案") \'创建表
    With tbl
        \'.AddColumn("日期" ,ADOXType.DateTime)
        .AddColumn("客户名称" ,ADOXType.String, 30)
        .AddColumn("联系人" ,ADOXType.String, 10)
        .AddColumn("电话" ,ADOXType.String,20)
        .AddColumn("qq" ,ADOXType.String,16)
        .AddColumn("客户来源" ,ADOXType.String, 30)
        .AddColumn("业务单号" ,ADOXType.String,16)
        .AddColumn("业务单子编号" ,ADOXType.String,16)
    End With
    Builder.AddTable(tbl, True, True) \'增加表
    Builder.Close()
    msgbox("不能直接load表格,如果需要,请用OuterTableBuilder")
End If

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