Hi there - I’ve had this problem for a while…
I have a page with 3 arrays of comboxes. These all have initial values.
The problem is that I cannot seem to access them on MAC - no problems in windows.
I cannot change the listindex of any of them… and when I go to actually manually change them, I pull the combobox down… but it won’t go back up and then the app locks down and I have to exit it,
here’s the code where it does this
dim i,j as integer
dim op(25) as integer
for i=0 to 25
if SRValues(i)=“None” then op(i)=0
if SRValues(i)=“Rarely” then op(i)=1
if SRValues(i)=“Average” then op(i)=2
if SRValues(i)=“Often” then op(i)=3
next
for i=0 to 35 ’ it crashes here on the next line
trate(i).ListIndex=0
trest(i).ListIndex=0
next
'Simple notes
Trate(0).ListIndex=op(2)
Trate(27).ListIndex=op(3)
Trate(28).ListIndex=op(3)
Trate(29).ListIndex=op(3)
Trate(27).ListIndex=op(16)
Trate(31).ListIndex=op(2)
Trate(1).ListIndex=op(3)
Trate(2).ListIndex=op(16)
Trate(3).ListIndex=op(4)
Trate(4).ListIndex=op(20)
Trate(5).ListIndex=op(17)
Trate(6).ListIndex=op(22)
'Trate(21).ListIndex=op(3)
Trate(22).ListIndex=op(19)
'Trate(23).ListIndex=op(16)
Trate(24).ListIndex=op(21)
Trate(25).ListIndex=op(14)
Trate(26).ListIndex=op(18)
Trate(16).ListIndex=op(12)
Trate(18).ListIndex=op(1)
Trate(19).ListIndex=op(11)
for i=32 to 35
Trate(i).ListIndex=op(0)
next
'rests
TRest(32).ListIndex=op(5)
TRest(19).ListIndex=op(6)
TRest(25).ListIndex=op(6)
TRest(0).ListIndex=op(7)
TRest(16).ListIndex=op(7)
TRest(20).ListIndex=op(7)
TRest(1).ListIndex=op(8)
TRest(2).ListIndex=op(8)
for i=7 to 13
TRest(i).ListIndex=op(8)
next
for i=21 to 24
TRest(i).ListIndex=op(8)
next
TRest(17).ListIndex=op(8)
for i=3 to 15
TRest(i).ListIndex=op(9)
next
j=0
for i=32 to 25
if TRest(i).ListIndex>j then j=TRest(i).ListIndex
next
for i=32 to 25
TRest(i).ListIndex=j
next
'dotted
Trate(8).ListIndex=op(13)
Trate(9).ListIndex=op(13)
Trate(20).ListIndex=op(15)
Trate(17).ListIndex=op(10)
’ Triplets
for i=12 to 15
Trate(i).ListIndex=op(17)
next
'6/8,12/8,7/8
'Trate(28).ListIndex=op(3)
'if op(2)<>0 and op(3)<>0 then Trate(28).ListIndex=op(2)
'if op(2)<>0 and op(3)<>0 then Trate(29).ListIndex=op(2)
'WholeNotes
j=0
for i=32 to 25
if Trate(i).ListIndex>j then j=Trate(i).ListIndex
next
for i=32 to 25
Trate(i).ListIndex=j
next
for i=0 to 35
if trate(i).text="" then trate(i).listindex=0
if trest(i).text="" then trest(i).listindex=0
if trate(i).Text=“Never” then trate(i).listindex=0
if trate(i).Text=“Rarely” then trate(i).listindex=1
if trate(i).Text=“Sometimes” then trate(i).listindex=2
if trate(i).Text=“Often” then trate(i).listindex=3
if trest(i).Text=“Never” then trest(i).listindex=0
if trest(i).Text=“Rarely” then trest(i).listindex=1
if trest(i).Text="Sometimes"then trest(i).listindex=2
if trest(i).Text=“Often” then trest(i).listindex=3
next