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
文章標籤
全站熱搜
留言列表