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
|
