Ich habe es hingekriegt und zwar wie folgt:
Dim i,last as Integer
Dim s as string
Dim s1 as string = str(d.day)
s =
"01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31"
last = CountFields(s,",")
For i = 1 to last
if nthField(s,",",i) = s1 then
last = i
end
puTag.addRow NthField(s,",",i)
Next
gruss enno
Am 25.08.11 22:40, schrieb Christian Schmitz:
Am 25.08.2011 um 22:18 schrieb nobe:
Danke, Christian.
dass der change-event keine if-else-then bedingungen ausführt.
Beweise? Ich glaub's jetzt mal nicht.
Eine sache habe ich noch nicht ausprobiert: mit dim d as date = new date erfahre
ich ja die aktuelle tagesnummer unter den 31 möglichen. Damit gäbe es die
möglichkeit nur die tagesnummern<= der aktuellen aufzulisten.
Wie wäre es, wenn du einfach die letzten 4 Wochen als Datum zur Auswahl stellst?
Also
dim d as new date
for i as integer = 1 to 30
popupmenu1.addrow d.longdate
popupmenu1.rowtag(popupmenu1.listcount-1) = new date(d)
d.day = d.day -1
next
dann hast du die Daten drin und kannst das Date Objekt aus dem RowTag nehmen.
P.S. Ich bin in der aktuellen release 3 auf die klasse 'ListboxCell' gestossen.
Aber auf keine erklärung, was man damit anstellen kann. Schade dass die leute
von Real Software so lieblos mit der dokumentation umgehen. Aber das ist ein
anderes kapitel ;-)
Sowas passiert. Manchmal passiert es auch, dass sie Sachen implementieren und
nicht dokumentieren, weil sie schon bald wieder rausfliegen.
Gruß
Christian
