主题：这两个错误是如何形成的？？？？

 例子发上来。或者导出窗口的全部代码发上来看看。

 把 部门科室.foxtr 这个文件发上来。

测试了一下，你的项目打开没有报错。

 

你关闭项目重新打开测试一次。

 afteropenproject事件处理一下，width，不要重复width的内容

 

cmd.CommandText = "select * f rom {列宽设置} where 显隐 = -1"
Dim dt As DataTable = cmd.ExecuteReader
width = ""
For Each dr As DataRow In dt.DataRows
    width = width & dr("列名称") & "|" & dr("宽度") & "|"
Next
width = width.Trim("|")

 反正，你控制好width的值就行，弹出来看一下。不要重复。