FindRecordItem

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

Hi

Please could someone help me with the code below,
I cannot get FindRecordItem to work.

It should find the value "Wendy" i think!

Thanks

MArk

##################################################

Private Sub cmdFind_Click()
Dim lngCount As Long
Dim repRecItem As ReportRecordItem
lngCount = ReportControl1.Rows.Count

Set repRecItem = ReportControl1.Records.FindRecordItem(1, lngCount, 1, 3, 0, 3, "Wendy", xtpReportTextSearchExactPhrase)
If repRecItem Is Nothing Then
Else
    MsgBox "Found"
End If

End Sub
Private Sub Form_Load()
Dim rRecord As ReportRecord

ReportControl1.Columns.Add 0, "Col1", 50, False
ReportControl1.Columns.Add 1, "Col2", 50, False

Set rRecord = ReportControl1.Records.Add
rRecord.AddItem ""
rRecord.Item(0).Value = "Mark"
rRecord.AddItem ""
rRecord.Item(1).Value = "1"
rRecord.AddItem ""
rRecord.Item(2).Value = "2"
Set rRecord = ReportControl1.Records.Add
rRecord.AddItem ""
rRecord.Item(0).Value = "Wendy"
rRecord.AddItem ""
rRecord.Item(1).Value = "1"
rRecord.AddItem ""
rRecord.Item(2).Value = "2"
ReportControl1.Populate

End Sub

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
markmark Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 30 November 2007 Status: Offline Points: 142	Post Options Post Reply Quote markmark Report Post Thanks(0) Quote Reply Topic: FindRecordItem Posted: 07 June 2009 at 6:33am
	Hi Please could someone help me with the code below, I cannot get FindRecordItem to work. It should find the value "Wendy" i think! Thanks MArk ################################################## Private Sub cmdFind_Click() Dim lngCount As Long Dim repRecItem As ReportRecordItem lngCount = ReportControl1.Rows.Count Set repRecItem = ReportControl1.Records.FindRecordItem(1, lngCount, 1, 3, 0, 3, "Wendy", xtpReportTextSearchExactPhrase) If repRecItem Is Nothing Then Else MsgBox "Found" End If End Sub Private Sub Form_Load() Dim rRecord As ReportRecord ReportControl1.Columns.Add 0, "Col1", 50, False ReportControl1.Columns.Add 1, "Col2", 50, False Set rRecord = ReportControl1.Records.Add rRecord.AddItem "" rRecord.Item(0).Value = "Mark" rRecord.AddItem "" rRecord.Item(1).Value = "1" rRecord.AddItem "" rRecord.Item(2).Value = "2" Set rRecord = ReportControl1.Records.Add rRecord.AddItem "" rRecord.Item(0).Value = "Wendy" rRecord.AddItem "" rRecord.Item(1).Value = "1" rRecord.AddItem "" rRecord.Item(2).Value = "2" ReportControl1.Populate End Sub
	Product: Xtreme SuitePro (ActiveX) version 13.0.0 Platform: Windows XP (32bit) - SP 2 Language: Visual Basic 6.0

Aaron Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 29 January 2008 Status: Offline Points: 2192	Post Options Post Reply Quote Aaron Report Post Thanks(0) Quote Reply Posted: 07 June 2009 at 7:23am
	Hi Mark, It looks OK to me There are a few issues with this method, please read post https://forum.codejock.com/forum_posts.asp?TID=12897
	Product: Xtreme SuitePro (ActiveX) version 15.0.2 Platform: Windows XP (32bit) - SP 2 Language: Visual Basic 6.0 Zero replies is not an option....

markmark Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 30 November 2007 Status: Offline Points: 142	Post Options Post Reply Quote markmark Report Post Thanks(0) Quote Reply Posted: 08 June 2009 at 6:04am
	Hi Aaron Have looked through that post, but still can't get the FindRecordItem to work. I'm on ver 13. Do you have a working sample? Thanks MArk
	Product: Xtreme SuitePro (ActiveX) version 13.0.0 Platform: Windows XP (32bit) - SP 2 Language: Visual Basic 6.0

Aaron Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 29 January 2008 Status: Offline Points: 2192	Post Options Post Reply Quote Aaron Report Post Thanks(0) Quote Reply Posted: 08 June 2009 at 1:35pm
	Hi, I didn't see that you didn't use first column as start column, you have first column with Index 0; This will work: Set repRecItem = wndReportControl.Records.FindRecordItem(1, lngCount, 0, 1, 0, 0, "Wendy", xtpReportTextSearchExactPhrase)
	Product: Xtreme SuitePro (ActiveX) version 15.0.2 Platform: Windows XP (32bit) - SP 2 Language: Visual Basic 6.0 Zero replies is not an option....

markmark Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 30 November 2007 Status: Offline Points: 142	Post Options Post Reply Quote markmark Report Post Thanks(0) Quote Reply Posted: 08 June 2009 at 4:40pm
	Hi Aaron. Support have told me to download 13.1 which fixes the problem. However if it does work with 13.0 I would like to try, otherwise I will have to release a whole new setup and that is a real pain. Here is my code Thanks MArk uploads/20090608_163843_find.zip
	Product: Xtreme SuitePro (ActiveX) version 13.0.0 Platform: Windows XP (32bit) - SP 2 Language: Visual Basic 6.0

Aaron Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 29 January 2008 Status: Offline Points: 2192	Post Options Post Reply Quote Aaron Report Post Thanks(0) Quote Reply Posted: 09 June 2009 at 2:48pm
	Hi Mark, I'm sorry (again) but I did test with some beta version and of course it works, Mark fixed these. But you can use one option with V13.0 that actually works: Set repRecItem = ReportControl1.Records.FindRecordItem(0, lngCount, 0, 1, 0, 0, "rk", xtpReportTextSearchBackward)
	Product: Xtreme SuitePro (ActiveX) version 15.0.2 Platform: Windows XP (32bit) - SP 2 Language: Visual Basic 6.0 Zero replies is not an option....

markmark Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 30 November 2007 Status: Offline Points: 142	Post Options Post Reply Quote markmark Report Post Thanks(0) Quote Reply Posted: 15 June 2009 at 4:38am
	Thanks Aaron Mark
	Product: Xtreme SuitePro (ActiveX) version 13.0.0 Platform: Windows XP (32bit) - SP 2 Language: Visual Basic 6.0