Új hozzászólás Aktív témák

• cybear csendes tag

  #987

  #982 szucs69

  2008-06-24 19:36:27

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  cybear

  csendes tag

  #982 szucs69

  #982 szucs69

  pár szóban kifejtem,
  adott egy cipős cég, 6 fajta cipő, 10 színben, 15 méretben, összesen kb 1000 féle.
  ha pl. rendelést akar valaki leadni arra gondoltam, hogy
  combobox1=cipő
  combobox2=szín
  combobox3=méret
  ha csak azt mondom a comboboxoknak, hogy rowsource innen és innen akkor kiad mindegyikbe 1000-1000-1000 sort ami azért elég sok és nem is jó válasz.
  ezért arra gondoltam, hogy ha megnyitom combobox1 -t akkor csak a 6 fajta cipő jelenjen meg, kiválasztom és utána akkor már a további comboboxokban csak az ahhoz tartozó pl 8 szín és így tovább jelenjen meg, vagy az egész fordítva össze vissza mint mikor az excelben autószűrőzől.
  nem ragaszkodom a comboboxhoz, csak a lényeg, hogy könnyen átláthatóan használható legyen.
  remélem érthető a story.
  Atesz

  Arra tudok egy megoldást, hogy kiválasztasz valamit az egyik combobox-ban és ez alapján jelennek meg értékek a másikban:

  (Ez az ArcPad-hez van, de gondolom máshol is hasonlóan működik)
  Dim base, res, c
  Set base = Layers("LAYER").Forms("EDITFORM").Pages("PAGE1")
  Set res = base.Controls("cmbReservation")
  Set c = base.Controls("cmbCounty")
  c.Clear

  'Based on the reservation, add the counties to the county combo box
  If res = 490 Then
  c.AddItem "171", "Tama"
  ElseIf res = 409 Then
  c.AddItem "7", "Beltrami"
  c.AddItem "29", "Clearwater"
  c.AddItem "113", "Pennington"
  end if

Új hozzászólás Aktív témák