Following is a method that was working for a while. I made no changes,
now it won't execute most of the lines.
When I follow it in the debugger it executes line 1 and line 2, then
just skips to the end of the method. Nothing else executes or
evaluates. The debugger shows "oi = Nil" and "comm = Input:File" and
throws no errors or exceptions.
I'm at a loss for ideas why. Am I missing something?
Code:
Sub Add2ExecList(comm as string, oi as optionItem)
'add a row to the ExecutionList and create the corresponding optionItem
dim oi2 as optionItem
ExecutionList.AddRow comm
'create a new optionItem for this row and get the array index of it's object
if oi = Nil then
oi2 = GetOIfromType(comm)
if oi2 <> nil then
ExecutionList.CellTag(ExecutionList.LastIndex,0) = oi2
end if
else
ExecutionList.CellTag(ExecutionList.LastIndex,0) = oi
end if
'add the picture for the row
ExecutionList.RowPicture(ExecutionList.LastIndex) =
gpsbabelIntf(ExecutionList.CellTag(ExecutionList.LastIndex,0)).GetRowPicture
'causes the list to redraw
ExecutionList.ListIndex = ExecutionList.LastIndex
ExecutionList.SetFocus 'add a row to the ExecutionList and create
the corresponding optionItem
dim oi2 as optionItem
ExecutionList.AddRow comm
'create a new optionItem for this row and get the array index of it's object
if oi = Nil then
oi2 = GetOIfromType(comm)
if oi2 <> nil then
ExecutionList.CellTag(ExecutionList.LastIndex,0) = oi2
end if
else
ExecutionList.CellTag(ExecutionList.LastIndex,0) = oi
end if
'add the picture for the row
ExecutionList.RowPicture(ExecutionList.LastIndex) =
gpsbabelIntf(ExecutionList.CellTag(ExecutionList.LastIndex,0)).GetRowPicture
'causes the list to redraw
ExecutionList.ListIndex = ExecutionList.LastIndex
ExecutionList.SetFocus
End Sub
--
Karl Smith
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
|