关于列设置 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

甜老师，以开发者的身份进去，保存后是显示和隐藏的列怎么不符合呢？

选择的列和操作后的结果咧不符合

更改前：

此主题相关图片如下：999.png

更改后：

此主题相关图片如下：910.png

如果登录的身份是“abc”就正常，是怎么回事？

[此贴子已经被作者于2019/3/24 19:39:41编辑过]

我测试没问题，请照抄这段代码

Dim clist As WinForm.CheckedListBox = e.Form.Controls("lieCheckedListBox")
Dim szlxs As WinForm.RadioButton = e.Form.Controls("shezhiliekuanyushunxu")
Dim xsyycl As WinForm.RadioButton = e.Form.Controls("xianshiyuyincanglie")
If xsyycl.Checked Then
    For i As Integer = clist.Items.Count - 1 To 0 Step -1
        CurrentTable.Cols(clist.items(i)).Visible = not clist.GetItemChecked(i)
    Next
End If
Dim t As WinForm.Table = e.Form.Controls("Table1")
Dim fdr As DataRow = DataTables("列设置").Find("表名 = '" & t.Table.DataTable.Name & "'And 用户 ='" & User.Name &"'")
If fdr Is Nothing Then
    fdr = DataTables("列设置").AddNew
    fdr("表名") =t.Table.DataTable.Name
    fdr("用户") = User.Name
End If
fdr("列设置") = t.Table.GetColVisibleWidth
For Each dr As DataRow In DataTables("列设置").Select(" 用户 ='" & User.Name &"'")
    If Tables.Contains(dr("表名")) Then
        Tables(dr("表名")).SetColVisibleWidth(dr("列设置"))
    End If
Next

For Each dr As DataRow In DataTables("列设置").Select(" 用户 ='" & User.Name &"'") 甜老师这句代码是不是得同时判断用户和表名呀？

    If Tables.Contains(dr("表名")) Then
        Tables(dr("表名")).SetColVisibleWidth(dr("列设置"))
    End If
Next

改为下面代码代码：

For Each dr As DataRow In DataTables("列设置").Select(" 表名 ='" & dr("表名") &"'And 用户 ='" & User.Name &"'")

If Tables.Contains(dr("表名")) Then
Tables(dr("表名")).SetColVisibleWidth(dr("列设置"))
End If
Next

For Each dr As DataRow In DataTables("列设置").Select(" 表名 ='" & fdr("表名") & "' And 用户 ='" & User.Name & "'")

在“复选列表框”的ItemCheck事件写了如下代码运行后发现，只要有隐藏列存在，在选择“复选列表框”的值的时候，选择的列就和数据表中的列不一致，看看哪错了

Dim tzsx As WinForm.RadioButton = e.Form.Controls("tiaozhengliedeshunxuRadioButton")

If tzsx.Checked Then

If e.Checked Then

Dim cst As WinForm.CheckedListBox = e.sender

For i As Integer = 0 To cst.Items.count - 1

If i <> e.Index Then

cst.SetItemChecked(i, False)

End If

Dim t As Table = e.Form.controls("Table1").Table

If t.rows.count > 0 Then

t.Select(0,e.Index)

t.LeftVisibleCol = e.Index

End If

改一下

Dim t As Table = e.Form.controls("Table1").Table

Dim c As Col = t.cols(cst.Items(e.index))

t.Select(-1, c.Index)

t.LeftVisibleCol = c.Index

在“列的显示与隐藏”单选框写了如下代码'运行后发现“lieCheckedListBox”控件中加载两边字段呢？

Dim ldsxyyc As WinForm.RadioButton = e.Form.Controls("ldxsyycRadioButton")

Dim liexz As WinForm.CheckedListBox = e.Form.Controls("lieCheckedListBox")

Dim t As WinForm.Table = e.Form.Controls("Table1")

Dim str As String = ""

If ldsxyyc.Checked=True Then

e.Form.Controls("tzlsxGroupBox").Enabled=False

e.Form.Controls("ycyxslGroupBox").Enabled=True

e.Form.Controls("sjldczGroupBox").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 _UserGroup ="系统管理员" OrElse _UserGroup = "数据管理员" Then

If c.name <>"身份证号掩码显示" AndAlso c.name <> "客户主手机号掩码显示" AndAlso c.name <> "第二手机号掩码显示" AndAlso c.name <> "第三手机号掩码显示" Then

str &= c.name & "|"

End If

ElseIf _UserGroup = "数据操作员"

If c.name <> "身份证号" AndAlso c.name <> "客户主手机号" AndAlso c.name <>"第二手机号" AndAlso c.name <> "第三手机号" Then

str &= c.name & "|"

End If

Else

str &= c.name & "|"

End If

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 _UserGroup ="系统管理员" OrElse _UserGroup = "数据管理员" Then

If c.name <>"身份证号掩码显示" AndAlso c.name <> "客户主手机号掩码显示" AndAlso c.name <> "第二手机号掩码显示" AndAlso c.name <> "第三手机号掩码显示" Then

Dim i = array.Indexof(ary, c.name)

liexz .SetItemChecked(i, not c.Visible)

End If

ElseIf _UserGroup = "数据操作员"

If c.name <> "身份证号" AndAlso c.name <> "客户主手机号" AndAlso c.name <>"第二手机号" AndAlso c.name <> "第三手机号" Then

Dim i = array.Indexof(ary, c.name)

liexz .SetItemChecked(i, not c.Visible)

End If

Else

Dim i = array.Indexof(ary, c.name)

If i >= 0 Then

liexz .SetItemChecked(c.Index, not c.Visible)

End If

做一个例子发上来测试

Dim t As Table = e.Form.controls("Table1").Table

Dim ldxsyyc As WinForm.RadioButton = e.Form.Controls("ldxsyycRadioButton")

Dim szldkdysx As WinForm.RadioButton = e.Form.Controls("szldkdysxRadioButton")

If szldkdysx.Checked Then

t.Select(0, e.Sender.SelectedIndex)

t.LeftVisibleCol = e.Sender.SelectedIndex

If e.Checked Then

Dim cst As WinForm.CheckedListBox = e.Sender

For i As Integer = 0 To cst.Items.count - 1

If i <> e.Index Then

cst.SetItemChecked(i, False)

End If

ElseIf ldxsyyc.Checked Then

Return

End If

If t.rows.count > 0 Then

t.Select(0,e.Index)

t.LeftVisibleCol = e.Index

End If

[此贴子已经被作者于2019/4/15 8:46:16编辑过]

要说多少次？改成这样啊

Dim t As Table = e.Form.controls("Table1").Table

Dim cst As WinForm.CheckedListBox = e.sender

Dim c As Col = t.cols(cst.Items(e.index))

t.Select(-1, c.Index)

t.LeftVisibleCol = c.Index

主题：关于列设置