Die suche geht weiter: ich hatte in meiner letzten mail geschrieben,
dass nicht angezeigt wird, welche der beiden checkboxen der letzten
reihe angeklickt wird. Das stimmt so nicht. Es ist vielmehr der letzte
klick in eine checkbox, der nicht angezeigt wird. Hier nochmals der
dazugehörige code:
/im open-event:/
me.DeleteAllRows
me.ColumnType(1) = 2
me.ColumnType(2) = 2
name = "Alfa,Bravo,Charly,Delta,Fox"
for nm as integer = 1 to 5
me.AddRow NthField(name,",",nm)
next
z = 0 'zählt die anzahl der angeklickten checkboxen
/im cellclick-event:/
if column = 1 then
me.Cellstate(row,2) = CheckBox.CheckedStates.Unchecked
elseif column = 2 then
me.Cellstate(row,1) = CheckBox.CheckedStates.Unchecked
end
if z = 5 then
for i = 0 to me.ListCount-1
if me.CellState(i,1) = CheckBox.CheckedStates.checked then
tn1 = tn1+chr(44)+me.cell(i,0)
elseif me.CellState(i,2) = CheckBox.CheckedStates.Checked then
tn2 = tn2+chr(44)+me.cell(i,0)
end
next
' führende kommata entfernen
if left(tn1,1) = chr(44) then
tn1 = right(tn1,len(tn1)-1)
end
tn3 = "Anwesend: " + tn1
if left(tn2,1) = chr(44) then
tn2 = right(tn2,len(tn2)-1)
end
tn4 = "Entschuldigt: " + tn2
end
TextArea1.text = tn3 + EndOfLine + tn4
Nochmals zur verdeutlichung: klicke ich die checkboxen der reihe nach
an, egal in welcher reihenfolge, so wird jeweils der letzte (hier der
5.) klick nicht angezeigt. Sehe ich mir das im debugger an, so bleibt
die row-anzeige bei 4 stehen. Was ist da los ???
Gruss enno
