access的listbox不能顯示checkbox

要多重選擇功能,把屬性/多重選項設為2 簡單的  (1:無  3:延伸,選了其他,原本就不會選)

手動製作「全選」功能

 Private Sub CommandButton1_Click()
    Dim i As Long
    For i = 0 To ListBox1.ListCount - 1
        ListBox1.Selected(i) = Not ListBox1.Selected(i)
    Next
   
    With CommandButton1
        If .Caption = "全选" Then
            .Caption = "取消全选"
        Else
            .Caption = "全选"
        End If
    End With
End Sub
出處:http://club.excelhome.net/thread-217549-1-999.html

 

多重選擇取值, 存在變數s_mem(103)

For i = 0 To Me.List11.ListCount    
    If Me.List11.Selected(i) Then
              S_Mem(103) = S_Mem(103) + """" + Me.List11.ItemData(i) + """"
    End If
Next

文章標籤
創作者介紹
創作者 王小雀 的頭像
王小雀

黃臉婆--冠上夫姓了 哈

王小雀 發表在 痞客邦 留言(0) 人氣()