Office中国论坛/Access中国论坛

标题: 列表框代码，整了半天都没对。 [打印本页]

作者: snryga 时间: 2021-11-7 22:32
标题: 列表框代码，整了半天都没对。
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 时间: 2021-11-7 22:47
已搞定

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)