以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  表Load后在事件中自动设置 行宽度的疑问  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=126994)

--  作者:蓝色理想
--  发布时间:2018/11/2 12:49:00
--  表Load后在事件中自动设置 行宽度的疑问
目的: 想用事件实现 在表显示后,自动设置 行宽度

在  AfterLoadTableSetting 事件录入如下代码,发现 messagebox 提示事件运行了,但表的列宽度没按 参数设置。(设置参数代码将E参数直接修改为表名,运行没问题没问题)


   
MessageBox.Show(e.Table.Name & "AfterLoadTablesetting run !")

Tables(e.Table.Name).SetColVisibleWidth("账套期间|98|所属表名|111|所属ID|57|合同编号|112|附件名称|179|扩展名|52|附件大小|61|备注|98|申报用户|98|用户分组|98|申报日期|98|审核人员|98|审核日期|98|编辑者|98|是否结账|98")

请问如何解决?

--  作者:蓝色理想
--  发布时间:2018/11/2 13:00:00
--  
刚才又做了测试,把 用E参数提供的表名,直接用 字符串 “公用_附件”,填写上,就正常了。
用 if 函数 判断 E参数提供的表名 与 “公用_附件” 是否相等,提示也相等,但就是 设置无法正常运行。。。。。。

\'e.Table.Cols("附件名称").AllowEdit = False
MessageBox.Show(e.Table.Name & "AfterLoadTablesetting run !")

\'Tables("公用_附件").SetColVisibleWidth("账套期间|98|所属表名|111|所属ID|57|合同编号|112|附件名称|179|扩展名|52|附件大小|61|备注|98|申报用户|98|用户分组|98|申报日期|98|审核人员|98|审核日期|98|编辑者|98|是否结账|98")
If e.Table.Name = "公用_附件" Then
    MessageBox.Show(e.Table.Name & "= 公用_附件 !")
Else
    MessageBox.Show(e.Table.Name & "<> 公用_附件 !")
End If

Tables(e.Table.Name).SetColVisibleWidth("账套期间|98|所属表名|111|所属ID|57|合同编号|112|附件名称|179|扩展名|52|附件大小|61|备注|98|申报用户|98|用户分组|98|申报日期|98|审核人员|98|审核日期|98|编辑者|98|是否结账|98")


--  作者:蓝色理想
--  发布时间:2018/11/2 13:07:00
--  
还有就是刚编辑好 事件代码,按确认保存后,可以看到代码正确的设置了列宽度。
我就在想,难道是用E 参数传递名字的必须要表已加载完毕?而 直接写 表名,不需要表加载完毕?
真是一个奇怪的问题啊


--  作者:蓝色理想
--  发布时间:2018/11/2 13:56:00
--  
这个问题还真需要解决,不然不方便用于自动载入 各用户设置
--  作者:有点甜
--  发布时间:2018/11/2 15:36:00
--  

测试了一下,这个问题无法解决。

 

在这个事件无法设置显示隐藏列。请换到其它地方变通处理。


--  作者:蓝色理想
--  发布时间:2018/11/2 15:52:00
--  
好的,若是有可能,请修复一下,这个事件用于载入  用户的表显示设置还是挺方便的,仔细研究了,表事件中要实现这个功能,只有这个事件才有可能