老师您好!我在设置表中某列为扩展列后,重启程序,该列不再是扩展列了。怎样写代码才能使其在重启后仍是扩展列?具体代码如下:
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编辑过]