以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  导航中如果选中某个页面代码怎么写？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=27188)
--  作者：zpx_2012
--  发布时间：2012/12/24 17:26:00
--  导航中如果选中某个页面代码怎么写？

各位老师，

 

在项目的全局表事件的prepare事件中用如下代码，

 

Dim Bar As WinForm.NavBar = Forms("导航").Controls("Navbar1")
If Bar.SelectedPage = Bar.NavPages("所有表单") Then \'如果导航中选择的是"所有表单"页
    For Each t As Table In Tables
        If CurrentTable.Current.DataRow.RowState = DataRowState.Added Then
            e.Cancel = False
        Else
            e.Cancel = True
        End If
    Next
End If

主要想实现当鼠标选择“所有表单”页后准备在表中编辑数据时，只有新增加的行才可以编辑，其他的禁止编辑。 

红色的那句代码正确的应该怎么样写？

 

谢谢！
[此贴子已经被作者于2012-12-24 17:29:28编辑过]
--  作者：lin_hailun
--  发布时间：2012/12/24 17:29:00
--  
 If Bar.SelectedPage.Butt Then
--  作者：zpx_2012
--  发布时间：2012/12/24 17:35:00
--  

看了半天帮助怎么写都提示出错，或者不起作用，原来是这样。可以了，谢谢林总！