Buscar este blog

viernes, 4 de abril de 2008

Acceder al ultimo registro de una Tabla. ARCOBJECTS

Con esto obtendremos el maximo valor del campo OBJECTID,
con lo que ya solo tendremos que pillar de la tabla el row con el id obtenido.


Dim idata As New DataStatistics
idata.Field = "OBJECTID"
idata.Cursor = pCursor
Dim vOIDMAXIMO As Double
vOIDMAXIMO = idata.Statistics.Maximum
'While Not pRow Is Nothing
' If pRow.Value(pRow.Table.FindField("OBJECTID")) > ultimoValor Then
' ultimoValor = pRow.Value(pRow.Table.FindField("OBJECTID"))
' End If
' pRow = pCursor.NextRow
'End While
row = ptable.GetRow(vOIDMAXIMO)