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

• #1737 EkSYS senior tag

  Új Válasz 2012-04-23 21:00:29 #1737

  Ú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

  Privát üzenet küldése

  

  EkSYS

  senior tag

  Sziasztok!

  Érdekes problémával találkoztam, s nem tudom mi a megoldás:

  Adott egy leltári kivét forma. Az első kombó ami be is van pipálva gyakorlatilag beadja az összes alkatrészgyártót. Majd a nagy kombó ami le is van gördítve meg kiadja minden olyan tétel típusát ami az első kombóban kiválasztott értéknek megfelel. Egyszerű. Ehhez az alábbi megoldásokat használtam:
  1.kombó betöltése:
  Do While Worksheets("alkresz").Range("A" & sor2).Value <> ""
  sor2 = sor2 + 1
  leltar1.ComboBox2.AddItem Worksheets("leltarpivo").Range("I" & sor2).Value
  Loop
  sor2 = sor2 - 1
  Worksheets("alkresz").Activate

  Majd betöltöm a nagy kombót:

  Public Sub alkatcombo5toltes()
  Dim sor As Integer
  Dim xkeres(1 To 10) As String
  xkeres1 = ""
  xkeres2 = ""
  sor = 2

  If leltar1.CheckBox1.Value = True Then
  xkeres1 = leltar1.ComboBox1.Value
  Else
  End If

  If leltar1.CheckBox2.Value = True Then
  xkeres2 = leltar1.ComboBox2.Value
  Else
  End If

  leltar1.ComboBox5.Clear

  Do While Worksheets("alkresz").Range("A" & sor).Value <> ""

  'PME
  If Worksheets("alkresz").Range("I" & sor).Value = xkeres1 Then
  leltar1.ComboBox5.AddItem Worksheets("alkresz").Range("E" & sor).Value
  'Alk.gyártó
  ElseIf Worksheets("alkresz").Range("H" & sor).Value = xkeres2 Then
  leltar1.ComboBox5.AddItem Worksheets("alkresz").Range("E" & sor).Value

  End If
  sor = sor + 1

  Loop

  A probléma az hogy a képen látható a nagy kombóban kiválasztott érték a helyes, csakis az a másik 3 nem. De az mindig benne marad. mindent szépen megtalál, csak ez a nyomorult 3 marad bent mindig.
  Valakinek hasonló tapasztalata? Ötlete?

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