I am new to programming MapPoint and I would like to speed up the following code that I have written using Excel VBA (this is just an extract not the complete subroutine)
Set objRS = objDataSet.QueryAllRecords
'Loop through all the records (if any)
' Symbol 336 is first of Custom set
Do Until objRS.EOF
Set objFldStatus = objRS.Fields.Item("Status")
Set objFldType = objRS.Fields.Item("Type")
Select Case objFldStatus.Value
Case "M"
Select Case objFldType.Value
Case "FG"
objRS.Pushpin.Symbol = 16 ' black dot
Case "MC"
objRS.Pushpin.Symbol = 23 ' purple dot
Case "RC"
objRS.Pushpin.Symbol = 17 ' red dot
Case "TC"
objRS.Pushpin.Symbol = 22 ' green dot
Case "SC"
objRS.Pushpin.Symbol = 21 ' cyan dot
Case "FT"
objRS.Pushpin.Symbol = 20 ' blue dot
Case Else
objRS.Pushpin.Symbol = 254 ' question mark
End Select
Case "D"
objRS.Pushpin.Symbol = 336 ' transparent
Case "X"
objRS.Pushpin.Symbol = 336 ' transparent
Case Else
objRS.Pushpin.Symbol = 255 ' exclamation mark
End Select
'Move to the next record (or to EOF)
objRS.MoveNext
Loop
I have also tried using the if ... then ... else if construct but I did not detect much reduction in execution time when processing 10,000 records.
As I do not have VB6 nor do I have Microsoft Office XP Developer I am unable to create a DLL
Richard