AE加载ersi gird数据好难呀～

<P>　大家好，我用ＡＥ９.２加载栅格数据，TIF,BMP,JPG可以加载，但是grid文件却怎么也加载不了，不知道是什么原因，求教．． <BR> CommonDialog1.ShowOpen<BR>   Dim prsd As IRasterDataset<BR>   Dim pWSF As IWorkspaceFactory<BR>   Set pWSF = New RasterWorkspaceFactory<BR>  Dim spath As String<BR>  Dim stitle As String<BR>  stitle = Left(CommonDialog1.FileTitle, Len(CommonDialog1.FileTitle) - 4)<BR>  spath = Left(CommonDialog1.FileName, Len(CommonDialog1.FileName) - Len(CommonDialog1.FileTitle) - 1)<BR>    ' Get RasterWorkspace<BR>   Dim pRasWS As IRasterWorkspace<BR>    Set pRasWS = pWSF.OpenFromFile(spath, 0)<BR>    Set prsd = pRasWS.OpenRasterDataset(CommonDialog1.FileTitle)<BR>   Dim prasterlayer As IRasterLayer<BR>   Set prasterlayer = New RasterLayer<BR>   prasterlayer.CreateFromDataset prsd</P>
<P>   MapControl1.ActiveView.FocusMap.AddLayer prasterlayer<BR>   MapControl1.Refresh</P>

<P>上面可以加载ＴＩＦ．．但是不能加载ＧＲＩＤ，有人说grid文件加载时不要文件名后缀，但还是不行呀～～</P>

<P>最好用RasterWorkspaceFactory来加载，不要用CreateFromDataset</P>
<P>Public Function OpenRasterDataset(sPath As String, sFileName As String) As IRasterDataset<BR>    ' sPath: directory where dataset resides<BR>    ' sFileName: name of the raster dataset<BR>    On Error GoTo ErrorHandler<BR>    <BR>    ' Create RasterWorkSpaceFactory<BR>    Dim pWSF As IWorkspaceFactory<BR>    Set pWSF = New RasterWorkspaceFactory<BR>    <BR>    ' Get RasterWorkspace<BR>    Dim pRasWS As IRasterWorkspace<BR>    If pWSF.IsWorkspace(sPath) Then<BR>        Set pRasWS = pWSF.OpenFromFile(sPath, 0)<BR>        Set OpenRasterDataset = pRasWS.OpenRasterDataset(sFileName)<BR>    End If<BR>    <BR>    ' Release memeory<BR>    Set pRasWS = Nothing<BR>    Set pWSF = Nothing<BR>    Exit Function<BR>ErrorHandler:<BR>    Set OpenRasterDataset = Nothing<BR>End Function<BR> </P>