以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  CheckedListBox控件中取值进行动态排序  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177775)

--  作者:蓝蚂蚁
--  发布时间:2022/6/3 9:51:00
--  CheckedListBox控件中取值进行动态排序
“人员名单表“通过点击CheckedListBox控件中的选项进行动态排序,下面的代码哪里出现问题,谢谢老师!
Dim s As String
Dim l As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
For Each Index As Integer In l.CheckedIndices
    If s > "" Then
        s = s & ","
    End If
    s = s  & l.Items(Index)
Next
If s > "" Then
    Tables("人员名单").sort =s
End If
[此贴子已经被作者于2022/6/3 9:51:46编辑过]

--  作者:狐狸爸爸
--  发布时间:2022/6/3 10:17:00
--  
messagebox.show(s)
--  作者:蓝蚂蚁
--  发布时间:2022/6/3 17:46:00
--  
messagebox.show(s),显示是列名,比如姓名,性别


--  作者:狐狸爸爸
--  发布时间:2022/6/5 7:37:00
--  
显示的列名,就没有问题,除非列名错了。

搞不定,就做个小例子发上来吧