[Jcframework-commits] dotnet CPersistentObject.vb,1.68,1.69

[Richard B. <rb...@us...>]

Update of /cvsroot/jcframework/dotnet
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31743

Modified Files:
	CPersistentObject.vb 
Log Message:
Fixed sorted GetAll and added extra unit test

Index: CPersistentObject.vb
===================================================================
RCS file: /cvsroot/jcframework/dotnet/CPersistentObject.vb,v
retrieving revision 1.68
retrieving revision 1.69
diff -u -d -r1.68 -r1.69
--- CPersistentObject.vb	21 Apr 2005 23:00:29 -0000	1.68
+++ CPersistentObject.vb	9 May 2005 00:29:15 -0000	1.69
@@ -1476,11 +1476,26 @@
 			For inIndex = 1 To orderCollection.Count
 				boAscend = True
 				If Not IsNothing(orderAscendCollection) Then
-					If orderAscendCollection.Item(orderCollection.Item(inIndex)) Is Nothing Then
-						boAscend = False
-					End If
+					Try
+						If orderAscendCollection.Item(orderCollection.Item(inIndex)) Is Nothing Then
+							boAscend = False
+						End If
+					Catch
+						Try
+							boAscend = False
+							Dim oo As Object = orderCollection.Item(inIndex)
+							For Each o As Object In orderAscendCollection
+								If o = oo Then
+									boAscend = True
+									Exit For
+								End If
+							Next
+						Catch
+							boAscend = False
+						End Try
+					End Try
 				Else
-					boAscend = False
+						boAscend = False
 				End If
 				obRC.AddOrderAttributeByAscend(orderCollection(inIndex), boAscend)
 			Next