以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]通过菜单代码设置的参数不能保存  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5394)

--  作者:ssqq
--  发布时间:2009/12/9 22:13:00
--  [求助]通过菜单代码设置的参数不能保存
记得帮助文件中说通过菜单设置的表的颜色啊,字体啊什么的,不能保存。只有通过表样式设置的参数才能保存。
今天我发现表属性中的一些属性无法通过代码修改。
AllowEdit
AllowAddrow
等。。。
一个表默认的权限是不能增加行的,通过代码设置后:
Dim dt As Table = CurrentTable
   dt.AllowEdit = True
   dt.AllowAddNew = True
   dt.AutoAddNew = True
   dt.EnterKeyActionDown = True
表可以增加数据了,但回车后依然是平着走。
在表属性修改AllowEdit和AllowAddNew属性为False后,依然能够增加行。

不知是不是通过表属性和表样式设置的参数才能保存?通过代码设置的哪些参数不能保存?
表属性中的各种参数难道不是当前表的参数?

希望大家随便说说,到底是怎么回事?


--  作者:czy
--  发布时间:2009/12/9 22:34:00
--  
应该是Table和DataTable的区别。
你可以试试。

Dim dt As DataTable = DataTables("表名")
dt.AllowEdit = True
dt.AllowAddNew = True
dt.AutoAddNew = True
dt.EnterKeyActionDown = True

--  作者:ssqq
--  发布时间:2009/12/10 19:31:00
--  
谢谢,Table和DataTable真是容易出错。
特分享两个代码
打开列属性的代码:
CurrentTable.Cols(CurrentTable.ColSel).OpenWindow()
切换风格的代码:
\'切换界面风格
If VisualStyle = VisualStyleEnum.Office2007Blue Then
   VisualStyle = VisualStyleEnum.Office2007Silver
ElseIf VisualStyle = VisualStyleEnum.Office2007Silver Then
   VisualStyle = VisualStyleEnum.Office2007Black
Else
   VisualStyle = VisualStyleEnum.Office2007Blue
End If