Answers

Apr 13, 2009 - 03:20 AM
use this code
Public Overrides Function Equals(ByVal obj As Object) As Boolean
If obj Is Nothing Or Not Me.GetType() Is obj.GetType() Then
Return False
End If
Dim d As duplicates = CType(obj, duplicates)
Return Me.account = d.account
End Function
'Errant code below
conn.Open()
Dim reader As SqlDataReader = cmd.ExecuteReader()
If reader.HasRows Then
'Create array to hold entries for accounts tracked more than once per LOB
Dim arrResults As New ArrayList
Dim dupEntries As New duplicates
While reader.Read
With arrResults
.Add(
New duplicates(reader.GetValue(0), reader.GetValue(1), reader.GetValue(2), _
reader.GetValue(3), reader.GetValue(4), reader.GetValue(5), reader.GetValue(6), _
reader.GetValue(7), reader.GetValue(8), reader.GetValue(9), reader.GetValue(10), _
reader.GetValue(11), reader.GetValue(12), reader.GetValue(13), reader.GetValue(14)))
End With
End While
reader.Close()
Dim first As duplicates
Dim last As duplicates
Dim i As Integer
For i = 0 To arrResults.Count - 1
first =
CType(arrResults.Item(i), duplicates)
Trace.Warn(arrResults.LastIndexOf(first.account))
last = arrResults.Item(arrResults.LastIndexOf(first.account))
Trace.Warn(
"first date" & first.tDate)
Trace.Warn(
"last date " & last.tDate)
Next
End If
Public Overrides Function Equals(ByVal obj As Object) As Boolean
If obj Is Nothing Or Not Me.GetType() Is obj.GetType() Then
Return False
End If
Dim d As duplicates = CType(obj, duplicates)
Return Me.account = d.account
End Function
'Errant code below
conn.Open()
Dim reader As SqlDataReader = cmd.ExecuteReader()
If reader.HasRows Then
'Create array to hold entries for accounts tracked more than once per LOB
Dim arrResults As New ArrayList
Dim dupEntries As New duplicates
While reader.Read
With arrResults
.Add(
New duplicates(reader.GetValue(0), reader.GetValue(1), reader.GetValue(2), _
reader.GetValue(3), reader.GetValue(4), reader.GetValue(5), reader.GetValue(6), _
reader.GetValue(7), reader.GetValue(8), reader.GetValue(9), reader.GetValue(10), _
reader.GetValue(11), reader.GetValue(12), reader.GetValue(13), reader.GetValue(14)))
End With
End While
reader.Close()
Dim first As duplicates
Dim last As duplicates
Dim i As Integer
For i = 0 To arrResults.Count - 1
first =
CType(arrResults.Item(i), duplicates)
Trace.Warn(arrResults.LastIndexOf(first.account))
last = arrResults.Item(arrResults.LastIndexOf(first.account))
Trace.Warn(
"first date" & first.tDate)
Trace.Warn(
"last date " & last.tDate)
Next
End If

Apr 13, 2009 - 03:42 AM
to see this link
thiruhitech.blogspot.com
thiruhitech.blogspot.com

May 05, 2009 - 04:22 AM
The question looks to be abandoned by the user who asked it. If no action is taken within 2 days, a Quomon Moderator will consider closing the question and distributing the points.
The Quomon Team
The Quomon Team

May 05, 2009 - 12:33 PM
Thank you guys for your help, I ended up using a combo box and customized SQL query ..

May 05, 2009 - 12:34 PM
Yes thank you :)
Add New Comment