关于列表框如何计算已选中记录数的问题

蒋海兵　发表于：2009-10-10 19:59:16 　

对于允许多重选择的列表框，如何通过代码来计算已选中的记录数？

我尝试了以下代码，但未获得成功，不知什么原因，请高手指教：

'list0为列表框名称

Private Sub List0_click()
    Dim i As Integer
    For i = 0 To List0.ListCount - 1
        If List0.Selected(i) = True Then
            i = i + 1
        Else
            i = i
        End If
    Next i
    Me.Text1 = i
    Me.Refresh
End Sub

另外一个问题是：大家知道listcount是列表框记录总数属性，但为什么当我赋值text2=me.list0.listcount的时候，其值为列表框记录总数+1？当列表框无数据时，其值为0？

纳闷中！！！！！忘高手释疑！不胜感激！

Top

andymark 发表于：2009-10-10 21:13:10

你的语句有问题

Private Sub List0_Click()
Dim i As Integer
Dim K As Integer

    For i = 0 To List0.ListCount - 1
        If List0.Selected(i) = True Then
            K = K + 1

        End If
    Next i
    Me.Text1 = K

End Sub

Top

蒋海兵发表于：2009-10-10 22:05:43

果然哦，这样可实现计数功能了，但是第二个问题呢？

大家知道listcount是列表框记录总数属性，但为什么当我赋值text2=me.list0.listcount的时候，其值为列表框记录总数+1？当列表框无数据时，其值为0？

纳闷中！！！！！忘高手释疑！不胜感激！

Top

andymark 发表于：2009-10-10 22:21:13

大家知道listcount是列表框记录总数属性，但为什么当我赋值text2=me.list0.listcount的时候，其值为列表框记录总数+1？当列表框无数据时，其值为0？

没发现你说的问题

示例的Listcount显示正确

点击下载此附件

Top

蒋海兵发表于：2009-10-11 10:16:42

部门当中的代码如下：

Private Sub bm_AfterUpdate()
    Me.List3.RowSource = "select tblEmp.Daid, tblEmp.Gh, tblEmp.Xm, tblEmp.Xb, tblEmp.Bm from tblEmp where at=true and bm='" & Me.bm & "'"
    Me.List3.Requery
    Me.T1 = 0
    Me.T2 = Me.List3.ListCount
End Sub

Top

点燃一支烟发表于：2009-10-11 10:53:59

这个3，是由于你的列表框选取了显示标题所致，即你的列表框选取了“档案号工号姓名性别”所致，它要占一行，计入总数的

Top

点燃一支烟发表于：2009-10-11 10:57:03

在显示列标题的情况下须-1才是实际选项数目（在有选项时），无选项时显示0，不统计列标题

Top

点燃一支烟发表于：2009-10-11 10:58:48

你可以去除“列标题”做下测试就能明白了，当无选项时是个特殊情况，在代码里面处理一下就能正确显示了

Top

点燃一支烟发表于：2009-10-11 11:06:02

对了，有列标题无选项时显示-1