Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这样更改字段名称报错


  共有1885人关注过本帖树形打印复制链接

主题：这样更改字段名称报错
帅哥哟，离线，有人找我吗？
xxfoxtable
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1696 积分：15795 威望：0 精华：0 注册：2017/6/1 23:12:00 		这样更改字段名称报错  发帖心情 Post By：2018/5/10 22:46:00 [显示全部帖子]

 Dim t1 As Table = Tables("采购")
    If t1.Cols.Contains("型号") = True Then
        Dim Builder As New ADOXBuilder("bjgl") '要指定数据源名称
        'Dim tbl As ADOXTable
        Builder.Open()
        With Builder.Tables(t.name)
            .RenameColumn("型号" ,"品名")
        End With
        Builder.Close()
        DataTables.unload("匹配出库|匹配出库临时|搜索匹配|搜索匹配临时|操作员档案|销售|采购")
        DataTables.Load("匹配出库|匹配出库临时|搜索匹配|搜索匹配临时|操作员档案|销售|采购")
    End If
错误提示：参数 @objname 不明确或所声明的 @objtype (column)有误。
 回到顶部
帅哥哟，离线，有人找我吗？
xxfoxtable
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1696 积分：15795 威望：0 精华：0 注册：2017/6/1 23:12:00 		  发帖心情 Post By：2018/5/16 22:02:00 [显示全部帖子]

With tbl
            .AddColumn("日期" ,ADOXType.DateTime)
            .AddColumn("说明" ,ADOXType.String, 12)
            .AddColumn("备注" ,ADOXType.String, 254)
            .AddColumn("操作员" ,ADOXType.String,12)
        End With
日期还是date 而不是datetime，有什么办法，变成datetime吗?
 回到顶部
帅哥哟，离线，有人找我吗？
xxfoxtable
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1696 积分：15795 威望：0 精华：0 注册：2017/6/1 23:12:00 		  发帖心情 Post By：2018/5/16 23:05:00 [显示全部帖子]

Dim Builder As New ADOXBuilder("bjgl") '要指定数据源名称
        Dim tbl As ADOXTable
        Builder.Open()
        tbl = Builder.NewTable("日志") '创建表
        With tbl
            .AddColumn("日期" ,ADOXType.DateTime)
            .AddColumn("说明" ,ADOXType.String, 12)
            .AddColumn("品名" ,ADOXType.String, 60)
            .AddColumn("封装" ,ADOXType.String, 60)
            .AddColumn("备注" ,ADOXType.String, 254)
            .AddColumn("操作员" ,ADOXType.String,12)
        End With
        Builder.AddTable(tbl) '增加表
        Builder.Close()
执行到Builder.AddTable(tbl) '增加表，报错：在对应所需名称或序数的集合中，未找到项目。
 回到顶部
帅哥哟，离线，有人找我吗？
xxfoxtable
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1696 积分：15795 威望：0 精华：0 注册：2017/6/1 23:12:00 		  发帖心情 Post By：2018/5/17 8:42:00 [显示全部帖子]

If  Tables.Contains("日志") Then
    Else
        Dim Builder As New ADOXBuilder("bjgl") '要指定数据源名称
        Dim tbl As ADOXTable
        Builder.Open()
        tbl = Builder.NewTable("日志") '创建表
        With tbl
            .AddColumn("日期" ,ADOXType.DateTime)
            .AddColumn("说明" ,ADOXType.String, 12)
            .AddColumn("品名" ,ADOXType.String, 60)
            .AddColumn("封装" ,ADOXType.String, 60)
            .AddColumn("备注" ,ADOXType.String, 254)
            .AddColumn("操作员" ,ADOXType.String,12)
        End With
        Builder.AddTable(tbl) '增加表
        Builder.Close()
        DataTables.unload("日志")
        DataTables.load("日志")
        DataTables("日志").DataCols("日期").SetDateTimeFormat(DateTimeFormatEnum.DateTime)
    End If
这是全部代码，没看出来哪有问题
 回到顶部
帅哥哟，离线，有人找我吗？
xxfoxtable
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1696 积分：15795 威望：0 精华：0 注册：2017/6/1 23:12:00 		  发帖心情 Post By：2018/5/17 9:09:00 [显示全部帖子]

If  Tables.Contains("日志") Then
        DataTables("日志").DataCols("日期").SetDateTimeFormat(DateTimeFormatEnum.DateTime)
    Else
        Dim Builder As New ADOXBuilder("bjgl") '要指定数据源名称
        Dim tbl As ADOXTable
        Builder.Open()
        tbl = Builder.NewTable("日志") '创建表
        With tbl
            .AddColumn("日期" ,ADOXType.DateTime)
            .AddColumn("说明" ,ADOXType.String, 12)
            .AddColumn("品名" ,ADOXType.String, 60)
            .AddColumn("封装" ,ADOXType.String, 60)
            .AddColumn("备注" ,ADOXType.String, 254)
            .AddColumn("操作员" ,ADOXType.String,12)
        End With
        Builder.AddTable(tbl) '增加表
        Builder.Close()
    End If
    '
    '''升级增加缺少的字段
    Dim t As Table = Tables("销售")
    If t.Cols.Contains("最近出货时间") = False Then
        Dim Builder As New ADOXBuilder("bjgl") '要指定数据源名称
        Dim tbl As ADOXTable
        Builder.Open()
        With Builder.Tables(t.name)
            .AddColumn("最近出货时间" ,ADOXType.Datetime)
        End With
        Builder.Close()
    Else
        DataTables("销售").DataCols("最近出货时间").SetDateTimeFormat(DateTimeFormatEnum.DateTime)
    End If
这样写的，还是报错
 回到顶部
帅哥哟，离线，有人找我吗？
xxfoxtable
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1696 积分：15795 威望：0 精华：0 注册：2017/6/1 23:12:00 		  发帖心情 Post By：2018/5/17 9:15:00 [显示全部帖子]

If  Tables.Contains("日志") Then这样判断是不是不管事啊？

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询