专家坐堂-[求助]设置某列为扩展列怎样才能使其不消失？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我在设置表中某列为扩展列后，重启程序，该列不再是扩展列了。怎样写代码才能使其在重启后仍是扩展列？具体代码如下：

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("《辅导练习题库》表,建表完毕!","提示")

具体状况可以看附件！！！