主题：窗口表的列

窗口中的表， 有些没有勾选的列还是显示了出来，怎么回事？

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

 

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

 

是否有其它代码重新设置了？

是的， 我的意思就是显示列里没有这个列，但显示了， 没有代码重新设置， 不过我不想显示的事一个表达式列

 

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

 

 

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

 

Tables("表A").Cols("第二列").Visible = False

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的所有代码， 老师帮忙看看那个代码影响列的显示和隐藏

去掉这句代码，是否正常？ Functions.Execute("xsgrant")

是的， 去掉这句代码， 正常！

这个函数的代码：

 

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

 

如何保留呢？