1、你设置了以后，就保存了啊。去你的表格那里看数据；

2、你把表名写错了啊

Dim bm As String = ""
If sjdcxzb="客户资料窗体" Then
   
ElseIf sjdcxzb="销售窗体" Then
    bm = "入库表"
ElseIf sjdcxzb="出库窗体" Then
    bm = "出库表"
End If

Dim clist As WinForm.CheckedListBox = e.Form.Controls("lieCheckedListBox")
For i As Integer = clist.Items.Count - 1 To 0 Step -1
    CurrentTable.Cols(i).Visible = not clist.GetItemChecked(i)
Next
Dim t As Table = Tables(bm)
Dim fdr As DataRow = DataTables("列设置").Find("表名 = \'" & t.DataTable.Name & "\'")
If fdr Is Nothing Then
    fdr = DataTables("列设置").AddNew
    fdr("表名") =t.DataTable.Name
End If

fdr("列设置") = CurrentTable.GetColVisibleWidth

3、各个窗口，在afterload事件，要写设置代码啊，认认真真看懂实例

下载信息  [文件大小：328.0 KB  下载次数：1]

点击浏览该文件:显示隐藏列.table

你的列设置表那里，加入一个【用户】列，填入对应的用户。

查找对应用户的数据，设置，即可。

不然，你就参考这里处理，如 http://www.foxtable.com/webhelp/scr/1600.htm

Dim xsyyc As WinForm.RadioButton = e.Form.Controls("xianshiyuyincanglie")
Dim liexz As WinForm.CheckedListBox = e.Form.Controls("lieCheckedListBox")
Dim t As WinForm.Table = e.Form.Controls("Table1")
Dim str As String = ""
If xsyyc .Checked=True Then
    e.Form.Controls("xiangyouButton").Enabled=False
    e.Form.Controls("xiangzuoButton").Enabled=True
    e.Form.Controls("yincangsuoxuanlie").Enabled=True
    liexz.Value =""
    liexz.SelectedValue=""
End If
liexz.CheckOnClick=True
Dim dtshb As WinForm.Table = e.Form.Controls("Table1")
For Each c As Col In t.Table.Cols
    If t.Table.DataTable.Name ="客户资料" Then
        If y Then
            If c.name <> "电话1" AndAlso c.name <> "电话2" AndAlso  c.name <>"电话3"  Then
                str &= c.name & "|"
            End If
        ElseIf y OrElse y Then
            If c.name <>"电话4" AndAlso c.name <> "电话5" AndAlso c.name <> "电话6" Then
                str &= c.name & "|"
            End If
            \'\'Return
        End If
    Else
        str &= c.name & "|"
    End If
Next

e.Form.Controls("lieCheckedListBox").ComboList = str.trim("|")
Dim ary = str.split("|")
Dim clist As WinForm.CheckedListBox = e.Form.Controls("lieCheckedListBox")
For Each c As Col In t.Table.Cols
    If t.Table.DataTable.Name ="客户资料" Then
        If y Then
            If c.name <> "电话1" AndAlso c.name <> "电话2" AndAlso c.name <>"电话3" Then
                Dim i = array.Indexof(ary, c.name)
                liexz .SetItemChecked(i, not c.Visible)
            End If
        ElseIf y OrElse y
            If c.name <> "电话4" AndAlso c.name <> "电话5" AndAlso c.name <>"电话6" Then
                Dim i = array.Indexof(ary, c.name)
                liexz .SetItemChecked(i, not c.Visible)
            End If
        End If
    Else
        Dim i = array.Indexof(ary, c.name)
        If i >= 0 Then
            liexz .SetItemChecked(c.Index, not c.Visible)
        End If
    End If
Next