列显功能出错，求助？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我给一个表设置了重设列显示的功能，前面的几个表都没问题，现在却不行了，求解？

如下代码：

'列显设置开始

Dim vs As String

For Each dr As DataRow In DataTables("设计部个人业绩计划表列显设置表").Select("显示=TRUE", "_Sortkey")

vs = vs & dr("列名") & "|" & dr("显示宽度") & "|"

Tables("设计师个人产值计划产值汇总表_Table1").SetColVisibleWidth(vs.trim("|"))

'列显设置结束

Forms("设计部个人业绩计划表列显设置表").Close

如图：

此主题相关图片如下：qq截图20160407144315.jpg

主题：列显功能出错，求助？