以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口表的列  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=103201)
--  作者：seal51
--  发布时间：2017/7/3 10:05:00
--  窗口表的列
窗口中的表， 有些没有勾选的列还是显示了出来，怎么回事？
--  作者：有点甜
--  发布时间：2017/7/3 10:08:00
--  

你设置了窗口表的显示列了吗？

 

http://www.foxtable.com/webhelp/scr/1921.htm

 

是否有其它代码重新设置了？
--  作者：seal51
--  发布时间：2017/7/3 10:25:00
--  
是的， 我的意思就是显示列里没有这个列，但显示了， 没有代码重新设置， 不过我不想显示的事一个表达式列
--  作者：有点甜
--  发布时间：2017/7/3 11:08:00
--  
以下是引用seal51在2017/7/3 10:25:00的发言：
是的， 我的意思就是显示列里没有这个列，但显示了， 没有代码重新设置， 不过我不想显示的事一个表达式列

 

你其它代码肯定影响了。删除你afterLoad事件的代码试试。

 

 
--  作者：seal51
--  发布时间：2017/8/1 15:44:00
--  

窗口中如何强制隐藏列？？
--  作者：有点甜
--  发布时间：2017/8/1 15:49:00
--  
以下是引用seal51在2017/8/1 15:44:00的发言：

窗口中如何强制隐藏列？？

 

Tables("表A").Cols("第二列").Visible = False
--  作者：seal51
--  发布时间：2017/8/1 15:52:00
--  

Functions.Execute("xsgrant")
Tables("报价主表").Select(-1, 0)
Tables("报价主表.报价明细表").Select(-1, 0)

Dim khbh As WinForm.ComboBox = e.Form.Controls("客户编号")
khbh.ComboList = DataTables("报价主表").GetComboListString("客户编号")

\'----------本季度筛选-------------------
Dim y As Integer = Date.Today.Year
Dim q As Integer = (Date.Today.Month - 1) \\ 3 + 1 \'计算现在是第几个季度
Dim dt11 As New Date(y, 3 * (q - 1) + 1, 1) \'获取本季度的第一天
Dim dt12 As New Date(y, 3 * q, Date.DaysInMonth(y,3 * q)) \'获取本季度的最后一天
Dim Filter As String
Filter = "报价日期 >= #" & dt11 & "# And 报价日期 <= #" & dt12 & "#"
Tables("报价主表").Filter = Filter
\'----------本季度筛选-------------------

\'Tables("报价主表").Filter = "已订购 = false and 隐藏 = false"
Tables("报价主表.报价明细表").Sort = "序号"
Tables("报价主表").ExtendLastCol = True
Tables("报价主表.报价明细表").ExtendLastCol = True

Tables("报价主表").SetHeaderRowHeight(35) \'设置标题行的高度
Tables("报价主表.报价明细表").SetHeaderRowHeight(35) \'设置标题行的高度

\'--------------------全部勾选-------------------
SystemReady = False

Dim gx1 As WinForm.CheckBox = e.Form.Controls("已订购全选")
Dim flag1 As Boolean = True
For Each r As Row In Tables("报价主表.报价明细表").Rows
    If r("已订购") = False Then
        flag1 = False
        Exit For
    End If
Next
gx1.Checked = flag1
SystemReady = True
\'--------------------全部勾选-------------------

 

以上是窗口afterload的所有代码， 老师帮忙看看那个代码影响列的显示和隐藏
--  作者：有点甜
--  发布时间：2017/8/1 16:19:00
--  
去掉这句代码，是否正常？ Functions.Execute("xsgrant")
--  作者：seal51
--  发布时间：2017/8/1 16:30:00
--  
是的， 去掉这句代码， 正常！
--  作者：seal51
--  发布时间：2017/8/1 16:32:00
--  

这个函数的代码：

 

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("XsGrantTable").Visible = (User.Type <> UserTypeEnum.User )
If User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("XsGrantTable").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

 

如何保留呢？