SUM: MI-L Going Blind...Help find the error

[Ian Tidy]

Thanks to all those who go back to me so quickly.

The answer is to use an alias.

Thanks Ian

-----Original Message-----
From: Steve Smith [mailto:[EMAIL PROTECTED]
Sent: Thursday, 20 March 2003 9:55 a.m.
To: Ian Tidy
Subject: Re: MI-L Going Blind...Help find the error




Try this

Dim oHoldAls,iRowIDAls  AS Alias
Dim sNewTable As String
Dim sBaseTable As String
Dim iRowID As Integer                     'RowID Hold
Dim oHold As Object                       'Object Hold

sNewTable = "TMP" & CurDate()
sBaseTable = SelectionInfo(1) ' <<< insert 1
Create Table(sNewTable) Using sBaseTable

Fetch First From sBaseTable
Do Until EOT(sBaseTable)
      'Get Object Information
     oHoldAls = sBaseTable + ".Obj"
     iRowIDAls = sBaseTable + ".RowID"
     oHold = oHoldAls
     iRowID = iRowIDAls

      '.... Other Code
      Fetch Next From sBaseTable
Loop

Cheers

Steve Smith
email:  [EMAIL PROTECTED]
Australian Bureau of Statistics (ABS)
Geography/Spatial Consulting and Mapping (SC&M)
ABS  Level 3 South 333   (02) 6252-6824
This e-mail is only intended to be read by the named recipient.  It may contain 
information which is confidential or subject to legal privilege.  If you are not the 
intended recipient you must delete this e-mail and you may not use any information 
contained in it.  Legal privilege is not waived because you have read this e-mail.

---------------------------------------------------------------------
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Message number: 6024