Hello, I am running into something strange. I am getting the following error
when the program attempts to execute a particular procedure:
An unhandled exception of type 'System.Missing MemberException ' occurred in
microsoft.visua lbasic.dll
Additional information: Public member 'FindSearchValu eRecord' on type
'ProfileRecordP rocessing' not found.
This seems to suggest that the function "FindSearchValu eRecord" does not
exist, but it does exist. The procedure at then end of this message. I have
another procedure with the same name which has a different signature. I found
that if I go into the program and change one of the procedure names, then
everything works just fine. I am allowed to have methods with the same name
but different signatures, I have a number of those throughout my program, so
why is it picking on this procedure.
Any Ideas? Is this a compiler problem? I have attached the second procedure
with the same name...
Public Function FindSearchValue Record(ByVal searchString As String) As
SearchValueReco rd()
Dim holdCurFilter As String = dvSearchValues. RowFilter
Try
dvSearchValues. RowFilter = searchString
Dim row As DataRowView
If dvSearchValues. Count = 0 Then
Return Nothing
End If
Dim records(dvSearc hValues.Count - 1) As SearchValueReco rd
Dim indx As Integer = 0
For Each row In dvProfileFileTy pe
Dim value As String = row.Item("Value ")
Dim valueoperator As String = row.Item("Value Operator")
Dim startloctype As String = row.Item("Value StartLocType")
Dim position As Integer = row.Item("Value Position")
Dim delimiter As String = row.Item("Value Delimiter")
Dim size As Integer = row.Item("FileS ize")
Dim sizeoperator As String = row.Item("FileS izeOperator")
Dim createdate As Date = row.Item("FileC reateDate")
Dim dateoperator As String = row.Item("FileC reateDateOperat or")
records(indx) = New SearchValueReco rd(row.Item("Us erId"),
row.Item("Profi leNameID"), _
row.Item("Value ID"), row.Item("Value "), row.Item("Value Operator"),
row.Item("Value StartLocType"), _
row.Item("Value Position"), row.Item("Value Delimiter"), row.Item("FileS ize"), _
row.Item("FileS izeOperator"), row.Item("FileC reateDate"),
row.Item("FileC reateDateOperat or"))
Next
If holdCurFilter.L ength > 0 Then
dvSearchValues. RowFilter = holdCurFilter
End If
Catch e As Exception
dvSearchValues. RowFilter = holdCurFilter
Throw New DeleteRowExcept ion("Invalid Row Filter provided" & vbCrLf & _
"Procedure: ProfileRecordPr ocessing.FindSe archValueRecord " & vbCrLf & _
"Filter provided = " & searchString & vbCrLf & _
"Detailed message: " & e.Message & vbCrLf & "Stack trace: " & e.StackTrace)
End Try
Here is the second procedure with the same name...
Public Function FindSearchValue Record(ByVal keys() As Object) As
SearchValueReco rd
Try
Dim item As Integer = dvSearchValues. Find(keys)
If Not IsNothing(item) And item <> -1 Then
Dim record As DataRowView = dvSearchValues( item)
Return New SearchValueReco rd(record.Item( "UserId"),
record.Item("Pr ofileNameID"), _
record.Item("Va lueID"), record.Item("Va lue"), record.Item("Va lueOperator"), _
record.Item("Va lueStartLocType "), record.Item("Va luePosition"), _
record.Item("Va lueDelimiter"), record.Item("Fi leSize"), _
record.Item("Fi leSizeOperator" ), record.Item("Fi leCreateDate"), _
record.Item("Fi leCreateDateOpe rator"))
End If
Catch e As Exception
Throw New DeleteRowExcept ion("Invalid Keys provided" & vbCrLf & _
"Procedure: ProfileRecordPr ocessing.FindSe archRecord" & vbCrLf & _
"Keys provided = " & keys(0) & " and " & keys(1) & vbCrLf & _
"Detailed message: " & e.Message & vbCrLf & "Stack trace: " & e.StackTrace)
End Try
End Function
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
-----== Over 100,000 Newsgroups - 19 Different Servers! =-----