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

• #987 cybear csendes tag szucs69 #982

  Új Válasz 2008-06-24 19:36:27 #987

  Ú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

  

  cybear

  csendes tag

  válasz szucs69 #982 üzenetére

  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