当前菜单按钮的子表允许编辑代码应该怎么写

李泰蜜

1. Proj.CurrentClickedGridMenu.BaseGrid.BaseBaseGrid.AllowEdit=True‘主表允许编辑正确代码
   
2.                                                 proj.CurrentClickedGridMenu.SubGrids.AllowEdit = True’子表允许编辑代码我猜错了

复制代码

怎么通过F12 追踪出子表代码

admin

先把平台内部的主要对象之间的关联关系了解了，再结合F12追踪，就自然而然的了解了。
http://www.sanmugrid.com/help/in ... %AF%B9%E8%B1%A1.htm
http://www.sanmugrid.com/help/in ... %84%91%E5%9B%BE.htm

admin

Dim tbl As IDataRuleGrid=TryCast(Proj.CurrentClickedGridMenu.BaseGrid,IDataRuleGrid)
If tbl IsNot Nothing Then
        tbl.SubGrids
End If

李泰蜜

感谢admin帮助。
通过当前窗口菜单按钮，允许本窗口所有的子表编辑代码如下

1.                         '设置所有多个子表允许编辑
   
2.                         Dim tbl As IDataRuleGrid=TryCast(Proj.CurrentClickedGridMenu.BaseGrid,IDataRuleGrid)
   
3.                         If tbl IsNot Nothing Then                               
   
4.                                 '因为子表有可能在主窗口或者只在子窗口里面显示，所以使用tbl.Relation.ChildrenGrids更合理一点。
   
5.                                 '                                tbl.SubGrids.GridS  这个被放弃了                                                                                                                               
   
6.                                 For Each subtbl As IDataRuleGrid In tbl.Relation.ChildrenGrids
   
7.                                         subtbl.BaseBaseGrid.AllowEdit=True
   
8.                                         '如果能正确转换成SmGrid对象，则要看看有没有对应的副表
   
9.                                         Dim tblS As SmGrid=TryCast(subtbl,SmGRid)
   
10.                                         If tblS IsNot Nothing AndAlso tblS.CopyGrids.Count > 0 Then
    
11.                                                 '如果有副表，则也要处理一下副表
    
12.                                                 For Each bb As BaseGrid In tblS.CopyGrids
    
13.                                                         bb.AllowEdit=True
    
14.                                                 Next                                               
    
15.                                         End If
    
16.                                 Next
    
17.                                
    
18.                         End If

复制代码