小编Mar*_*rie的帖子

我想用我的查询结果创建下拉列表。我正在寻求帮助，因为我不知道如何在列表中显示此结果。

清单示例：

我的查询是：

 'DROPDOWN LIST

  Private Sub cb_gest_Change()
  If Not FSD.cb_gest.MatchFound And FSD.cb_gest <> "" Then
  MsgBox "Saisie impossible, le gestionnaire n'existe pas !", , "Contrôle 
  Gestionnaire"
  FSD.cb_gest = ""
  Else
  FSD.Cells(29, COL_DATA) = FSD.cb_gest
  End If
  End Sub

  'DROPDOWN LIST

  Sub init_combo()
  Dim Resultat As ADODB.Recordset
  Dim Requete As String
  FSD.cb_gest.Clear
  Requete = "select lb_gestion from DB_GESTIONNAIRE "
  Requete = Requete + "WHERE (d_deb_valid <= TRUNC(SYSDATE) OR d_deb_valid IS 
  NULL) AND (d_fin_valid >= TRUNC(SYSDATE) OR d_fin_valid IS NULL)"
  Requete …