列表框代码，整了半天都没对。

snryga

If Me.合作单位.ItemsSelected.Count > 0 Then
        Set ctl = Me.合作单位
        strWhere = ""
        For Each varI In ctl.ItemsSelected
            strWhere = strWhere & "'" & ctl.Column(0, varI) & "',"
        Next
        strSQL = strSQL & " And 单位1 &  单位2 & 单位3  in (" & Left(strWhere, Len(strWhere) - 1) & ")  "
    End If

snryga

已搞定