以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]列标题修改与列移动无效  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187211)

--  作者:天空2021
--  发布时间:2023/6/30 12:08:00
--  [求助]列标题修改与列移动无效
在一个窗口的按钮单击事件中,写了下列代码实现两个功能,1.对列标题进行设置,2.移动列

代码能够完成,效果也实现了,但关闭项目后再次打开就都没有了,列标题没改,位置也没有移动。


    Dim newC3 As String = "量比_630_r8"  \'新标题文本
    DataTables("TY3_量比").DataCols(23).Caption = newC3 \'设置新标题
    DataTables("TY3_量比").BuildHeader() \'运行 BuildHeader 方法
    Tables("TY3_量比").Cols(23).Move(16) \'移动列
    Syscmd.Project.Save() \'保存项目
    MessageBox.Show("保存完成,对应标题:" & newG)
[此贴子已经被作者于2023/6/30 12:13:21编辑过]

--  作者:有点蓝
--  发布时间:2023/6/30 12:14:00
--  
这种使用代码设置的都是临时性的,重启项目就还原了,需要重新再调用代码设置
--  作者:天空2021
--  发布时间:2023/6/30 12:26:00
--  
我用 下列代码新增列就可以保存:
Builder.Tables("TY3_量比").AddColumn( "列名" , ADOXType.Single)

请问有别的方法实现,列标题修改和移动,且不是临时性的吗?


--  作者:有点蓝
--  发布时间:2023/6/30 13:28:00
--  
没有的,使用代码更改标题只能是临时的。3楼代码确实是永久性的,但是更改的是列名,不是标题
--  作者:天空2021
--  发布时间:2023/6/30 14:41:00
--  
好的,明白了

谢谢您的答复!