以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]复选列表框  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74402)
--  作者：zcgmxf
--  发布时间：2015/9/10 10:11:00
--  [求助]复选列表框
老师好！复选列表框如果选中了第一个值后，后面的都不能选中了，代码该怎么写？请指点。谢谢！
If lst.SelectedIndex = 0 Then
For Index As Integer = 1 To lst.Items.Count - 1
    lst.SetItemChecked(Index, False)
Next
End If
不执行。
--  作者：大红袍
--  发布时间：2015/9/10 10:16:00
--  

ItemCheck事件

 

If e.Checked Then
    For Index As Integer = 1 To e.Sender.Items.Count - 1
        e.Sender.SetItemChecked(Index, False)
    Next
End If
--  作者：zcgmxf
--  发布时间：2015/9/10 10:27:00
--  
红袍老师，选中第一个后，后面的还可以选中一个哦
--  作者：大红袍
--  发布时间：2015/9/10 10:54:00
--  
If e.Index = 0 andalso e.Checked Then
    For Index As Integer = 1 To e.Sender.Items.Count - 1
        e.Sender.SetItemChecked(Index, False)
    Next
End If
--  作者：zcgmxf
--  发布时间：2015/9/10 11:14:00
--  [求助]复选列表框
老师好！我有一个表，有A列和B列，A列有A1 A2 A3 A4 A5 A6......选项，B列有与A列对应的B1 B2 B3 B4 B5 ......选项，A列作为复选列表框取值列，B列绑定到文本框，如何实现在复选列表框选择多项时，对应行的B列的值能自动到文本框中。请指点，谢谢！
[此贴子已经被作者于2015/9/11 16:22:51编辑过]
--  作者：大红袍
--  发布时间：2015/9/10 11:28:00
--  
If e.Index = 0 AndAlso e.Checked OrElse e.sender.GetItemChecked(0) = True Then
    systemReady = False
    For Index As Integer = 1 To e.Sender.Items.Count - 1
        If index = e.Index Then
            e.Checked = False
        Else
            e.Sender.SetItemChecked(Index, False)
        End If
    Next
    systemReady = True
End If
--  作者：zcgmxf
--  发布时间：2015/9/10 11:33:00
--  
谢谢！