刚才又做了测试,把 用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")