Exit Sub
End If
If ImageFKArray(tem) = 1 Then
BackImageFKArray(tem - 1) = 1
End If
Next n
Next m
'清空当前数组
CleanFK
'拷备备份数组到当前数组
For m = 1 To 19
For n = 1 To 12
tem = (m - 1) * 12 + n
ImageFKArray(tem) = BackImageFKArray(tem)
Next n
Exit Sub
End If
If ImageFKArray(tem) = 1 Then
BackImageFKArray(tem - 1) = 1
End If
Next n
Next m
'清空当前数组
CleanFK
'拷备备份数组到当前数组
For m = 1 To 19
For n = 1 To 12
tem = (m - 1) * 12 + n
ImageFKArray(tem) = BackImageFKArray(tem)
Next n