列表框多项移除

时　间:2012-06-09 00:39:18
作　者:叶海峰   ID：31  城市：广州
摘　要:列表框多项移除
正　文:

 Public Function ListDelRows(ListBoxDel As ListBox)
'列表框数据源必需为值列表  
 Dim i      As Byte
    Dim sel    As Variant
    Dim str, Delstr As String
    str = ListBoxDel.RowSource & ";"
    For Each sel In ListBoxDel.ItemsSelected
        For i = 0 To ListBoxDel.ColumnCount - 1
            Delstr = Delstr & ListBoxDel.Column(i, sel) & ";"
        Next
        str = Replace(str, Delstr, "", 1)
        Delstr = ""
    Next
    ListBoxDel.RowSource = str
End Function

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店