Foxtable(狐表)用户栏目专家坐堂 → [求助]设置某列为扩展列怎样才能使其不消失?


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

主题:[求助]设置某列为扩展列怎样才能使其不消失?

帅哥哟,离线,有人找我吗?
33chyh
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:137 积分:1307 威望:0 精华:0 注册:2015/12/27 21:01:00
[求助]设置某列为扩展列怎样才能使其不消失?  发帖心情 Post By:2020/3/8 20:20:00 [只看该作者]

老师您好!
我在设置表中某列为扩展列后,重启程序,该列不再是扩展列了。怎样写代码才能使其在重启后仍是扩展列?具体代码如下:
        Dim Builder As New ADOXBuilder
        Dim tbl As ADOXTable
        Builder.Open()
        tbl = Builder.NewTable("辅导练习题库") '创建表
        With tbl
            .AddColumn("说明ID" ,ADOXType.String, 5)
            .AddColumn("题目" ,ADOXType.Text, 1000)
            .AddColumn("图片" ,ADOXType.String, 50)
            .AddColumn("答案" ,ADOXType.String, 200)
        End With
        Builder.AddTable(tbl) '增加表
        Builder.Close()
        DataTables.Load("辅导练习题库")
        DataTables("辅导练习题库").DataCols("图片").ExtendType = ExtendTypeEnum.Images
        Dim ndr As DataRow = DataTables("辅导练习题库").addnew
        DataTables("辅导练习题库").Save()
        messagebox.show("《辅导练习题库》表,建表完毕!","提示")
具体状况可以看附件!!!
[此贴子已经被作者于2020/3/8 20:49:09编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/8 21:30:00 [只看该作者]

1、重启项目,到列属性里设置
2、启动项目后使用代码设置列。到afteropenproject事件重复上面设置扩展列的代码

 回到顶部
帅哥哟,离线,有人找我吗?
33chyh
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:137 积分:1307 威望:0 精华:0 注册:2015/12/27 21:01:00
  发帖心情 Post By:2020/3/8 21:46:00 [只看该作者]

谢谢老师,在启动项里加入代码后已经将问题解决了!

 回到顶部