主题：表视图

我在窗口的afterload里面设置了表视图,应用窗口的是否是有效的,可重启系统就失效了?

1、你如何用代码设置【表视图】的？贴出对应代码；

 

2、失效指什么？afterLoad事件代码执行后无效？

教程 设置显示列 的步骤

我先在原表的表视图里面设置保存好,然后在在窗口的AfterLoad事件中加入下面的代码：预览的时候是正常的,重新打开项目,点到窗口就不行了,还原成原来的了

 

Dim t As Table = Tables("工程fa piao_Table1")
With Tables("工程数据")
    If .Current Is Nothing Then
        t.Filter = "False"
    Else
        t.Filter = "工程编码 = " & .Current("工程编码")
    End If
End With

t.Cols("价税合计").GrandTotal = True
t.GrandTotal = True
t.OpenView("工程数据_销项fa piao")

回复3楼，你具体是怎么做的？做一个实例发上来测试。就例子说明你需要达到什么效果。

老师,我找出出问题的代码了,就是教程里面的 可视化授权的实现 项目事件LoadUserSetting中，这段代码屏蔽掉就能实现了,这种冲突怎么办啊?

For Each t As Table In Tables
    t.Visible = True
    t.AllowEdit = True
    For Each c As Col In t.Cols
        c.Visible = True
        c.AllowEdit = True
    Next
Next
Tables("授权表").Visible = (User.Type <> UserTypeEnum.User )
If User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("授权表").Select("用户名 = '" & User.Name & "'" )
        If dr.IsNull("列名") Then
            Tables(dr("表名")).Visible = Not dr("不可见")
            Tables(dr("表名")).AllowEdit = Not dr("不可编辑")
        Else
            Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见")
            Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
        End If
    Next
End If

你5楼的代码，根据权限，把一些表、一些列隐藏了，隐藏的表、隐藏的列自然不会显示出来。