Am Donnerstag, den 13.08.2009, 17:33 +0200 schrieb Jean-Yves F. Barbier: > Jean-Yves F. Barbier a écrit : > ... > > No Werner, that don't work (wanted nb, Str, or Obj, got Fnct instead), > > I'm trying to adapt the base idea with other options, but still no success. > > I tried: > > trv_What.MoveFirst() > REPEAT > IF Left$(trv_What.Item.Text, 11) = "Tsupplier.a" THEN > trv_What.Item.Selected = TRUE > ELSE > trv_What.Item.Selected = FALSE > trv_What.MoveNext() > ENDIF > UNTIL trv_What.Item.Key = "HL" ' 1st Key of tree > > I also change ...MoveNext() to ...MoveBelow() but that gives an infinite loop. > But that also don't work (seems there's no possibility to do that) > > I let it down for now and keep moving on. > > JY
Hallo Jean-Yves, to days lesson THE DEADLOOP : set the trv_What.MoveNext after the endif -- Amicalment Charlie ------------------------------------------------------------------------------ Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day trial. Simplify your report design, integration and deployment - and focus on what you do best, core application coding. Discover what's new with Crystal Reports now. http://p.sf.net/sfu/bobj-july _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user