- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助] (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=186267)
-- 发布时间：2023/4/18 9:45:00
-- [求助]
老师，你好，今天遇到一怪事，我的数据表始终有一列被隐藏，把这列被隐藏的列显示出来保存后，返回重新登录又原样，这一列又被隐藏了。是不是数据库坏了？是不是列太多了（总数65列）？老师能帮看一下吗？？？谢谢了。
-- 发布时间：2023/4/18 9:49:00
--
和数据库没有什么关系。应该是有什么代码把列隐藏了。另外看看是不是设置了表视图
[此贴子已经被作者于2023/4/18 9:49:25编辑过]
-- 发布时间：2023/4/18 10:09:00
--
没有表视图，代码把隐藏的列显隐后，就是“出产编号”这一列不显示（其他的列都可显示）。  |
-- 发布时间：2023/4/18 10:11:00
--
说明设置的代码有问题
-- 发布时间：2023/4/18 10:25:00
--
一直使用的，就今天出了问题，代码也没动过
AfterClose代码：
If DataTables("列宽").haschanges Then
DataTables("列宽").save
End If
Dim kd As String = ""
For Each r As Row In Tables("列宽").rows
If r("显隐") = True Then
kd = kd & r("列名") & "|" & r("宽度") & "|"
End If
Next
Kd =kd.trim("|")
Tables("总表").setcolvisiblewidth(kd)
其他的没有什么代码了。
-- 发布时间：2023/4/18 10:28:00
--
调试
……
Kd =kd.trim("|")
msgbox(kd) \'这里显示什么内容？
Tables("总表").setcolvisiblewidth(kd)
-- 发布时间：2023/4/18 10:38:00
--
这个结果是对的
[此贴子已经被作者于2023/4/18 10:43:48编辑过]
-- 发布时间：2023/4/18 10:53:00
--
setcolvisiblewidth是临时的，重启项目后肯定是回到之前的默认状态。另外如果重启后就打开了窗口，窗口的设置肯定又会影响到列的
-- 发布时间：2023/4/18 12:56:00
--
不好意思，列名错误了，不知怎么这列名被改了。原来是出厂，现在是出产了。。。晕