SetColVisibleWidth不能按预期运行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim t As Table=Tables("日报.日报明细")

If t.DataTable.DataCols.Contains("-") = False Then

t.DataTable.DataCols.Add("-",Gettype(String),1)

t.Cols("-").Width = 24

t.Cols("-").Move(0)

t.Cols.Frozen = 1

End If

Functions.Execute("当前操作员表格式",t.name) ''加载当前操作员个性化表格式

Dim s as string=t.GetColVisibleWidth()

Messagebox.show(s) ''s1

s= "-|24|" & s

Messagebox.show(s) ''s2

t.SetColVisibleWidth(s)

这段代码放在了窗口的afterload事件中目的是在操作员自定义列格式前加一个系统强制列“-” ，s1=“单号|120|填报人|120”，s2="-|24|单号|120|填报人|120" 但是显示的结果还是s1的结果

通过代码

For Each c As Col In Tables("日报明细").cols

If c.name="-" Then

output.show(c.name)

End If

能显示“-“列

但是通过代码1 2 3

1：

For Each c As Col In Tables("日报.日报明细").cols

If c.name="-" Then

output.show(c.name)

End If

2：

For Each c As Col In Tables("印刷日报.印刷日报明细").cols

If c.Visible=False then

output.show(c.name)

End If

3：

For Each c As Col In Tables("印刷日报.印刷日报明细").cols

If c.Visible then

output.show(c.name)

End If

发现不存在”-“列

通过代码 Tables("日报.日报明细").SetColVisibleWidth("-|24") 强制显示所有列都无法显示

主题：SetColVisibleWidth不能按预期运行