Hallo, in einer listbox mit checkboxen wird die letzte position falsch
angezeigt: klicke ich nämlich beim 5. namen in die anwesend-spalte, dann
wird dies als 'entschuldigt' angezeigt. Warum ?? Bug ??
Ich füge mal den code bei.
Im open-event steht:
me.DeleteAllRows
me.ColumnType(1) = 2
me.ColumnType(2) = 2
for nm as integer = 1 to 5
name = "Alfa,Bravo,Charly,Delta,Fox"
me.AddRow NthField(name,",",nm)
next
z = 0
und im cellklick-event:
if column = 1 then
me.CellCheck(row,2) = false
elseif column = 2 then
me.CellCheck(row,1) = false
end
z = z+1
if z > 5 then ' für den fall eines fehleintrags
z = 5
if me.CellCheck(0,1) = true then
tn1 = me.cell(0,0)
Else
tn2 = me.cell(0,0)
end
if me.CellCheck(1,1) = true then
tn1 = tn1 + chr(44) + me.cell(1,0)
Else
tn2 =tn2 + chr(44) + me.cell(1,0)
end
if me.CellCheck(2,1) = true then
tn1 = tn1 + chr(44) + me.cell(2,0)
Else
tn2 =tn2 + chr(44) + me.cell(2,0)
end
if me.CellCheck(3,1) = true then
tn1 = tn1 + chr(44) + me.cell(3,0)
Else
tn2 =tn2 + chr(44) + me.cell(3,0)
end
if me.CellCheck(4,1) = true then
tn1 = tn1 + chr(44) + me.cell(4,0)
Else
tn2 =tn2 + chr(44) + me.cell(4,0)
end
' 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
TextArea1.text = tn3 + chr(13) + tn4
end
