取列表框的值进行查询

lastmem　发表于：2013-03-22 13:11:55 　

复制

左栏是个列表栏，通过表头上的查询条件自动生成

现在需要根据左栏选择的IP，在右栏里进行条件查询

请高手指点。

源文档

Top

叶海峰发表于：2013-03-22 15:11:24

Private Sub 左栏_AfterUpdate()

Me.右栏.Form.Filter = "ip地址='" & Me.左栏.Column(2) & "'"
Me.右栏.Form.FilterOn = True
' Me.右栏.Requery
End Sub

Top

wsl 发表于：2013-03-23 00:06:44

Private Sub 左栏_AfterUpdate()
    Dim strFilter As String
    Dim var As Variant
    For Each var In Me.左栏.ItemsSelected
        strFilter = strFilter & " ip地址='" & Me.左栏.Column(2, var) & "' or"
    Next var
    strFilter = Left(strFilter, Len(strFilter) - 2)
    Me.右栏.Form.Filter = strFilter
    Me.右栏.Form.FilterOn = True
End Sub

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

取列表框的值进行查询