DataRepeater

[bpitche]

I am working on search tool in which I would like to display the query results in a DataRepeater. I built the .ocx ActiveX control, assigned the properties, and created the bindings. Repeater is linked to an ADO user control. My problem is that no data is being displayed in the repeater. I know that my recordset contains data because I have a procedure to count how many records are in the set. If anyone has any suggestions, please feel free to share them with me. I really need to figure this out so I can continue with my project.

Thanks,
Brad Pitcher
The Hoover Company

Brad Pitcher
The Hoover Company
bpitcher@hoover.com

 

[tnguyen03]

...did you create Let and Get properties for the user controls??? show me some of your codes that would be helpful...

Have Fun!

 

[bpitche]

Here is my code for the control. I you need to see the code that I am using to call the control and set my bindings in the data repeater, let me konw.

*******************************************************

Option Explicit

Private Sub txtBinnum_Change()
PropertyChanged "Binnum"
End Sub

Private Sub txtCurbal_Change()
PropertyChanged "Curbal"
End Sub

Private Sub txtDescription_Change()
PropertyChanged "Description"
End Sub

Private Sub txtIl5_Change()
PropertyChanged "Il5"
End Sub

Private Sub txtIl4_Change()
PropertyChanged "Il4"
End Sub

Private Sub txtIn1_Change()
PropertyChanged "In1"
End Sub

Private Sub txtIn2_Change()
PropertyChanged "In2"
End Sub

Private Sub txtIssueunit_Change()
PropertyChanged "Issueunit"
End Sub

Private Sub txtItemnum_Change()
PropertyChanged "Itemnum"
End Sub
'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=txtItemnum,txtItemnum,-1,Text
Public Property Get Itemnum() As String
Itemnum = txtItemnum.Text
End Property

Public Property Let Itemnum(ByVal New_Itemnum As String)
txtItemnum.Text() = New_Itemnum
PropertyChanged "Itemnum"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=txtDescription,txtDescription,-1,Text
Public Property Get Description() As String
Description = txtDescription.Text
End Property

Public Property Let Description(ByVal New_Description As String)
txtDescription.Text() = New_Description
PropertyChanged "Description"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=txtIn1,txtIn1,-1,Text
Public Property Get In1() As String
In1 = txtIn1.Text
End Property

Public Property Let In1(ByVal New_In1 As String)
txtIn1.Text() = New_In1
PropertyChanged "In1"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=txtIn2,txtIn2,-1,Text
Public Property Get In2() As String
In2 = txtIn2.Text
End Property

Public Property Let In2(ByVal New_In2 As String)
txtIn2.Text() = New_In2
PropertyChanged "In2"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=txtIl5,txtIl5,-1,Text
Public Property Get Il5() As String
Il5 = txtIl5.Text
End Property

Public Property Let Il5(ByVal New_Il5 As String)
txtIl5.Text() = New_Il5
PropertyChanged "Il5"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=txtBinnum,txtBinnum,-1,Text
Public Property Get Binnum() As String
Binnum = txtBinnum.Text
End Property

Public Property Let Binnum(ByVal New_Binnum As String)
txtBinnum.Text() = New_Binnum
PropertyChanged "Binnum"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=txtIl4,txtIl4,-1,Text
Public Property Get Il4() As String
Il4 = txtIl4.Text
End Property

Public Property Let Il4(ByVal New_Il4 As String)
txtIl4.Text() = New_Il4
PropertyChanged "Il4"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=txtCurbal,txtCurbal,-1,Text
Public Property Get Curbal() As String
Curbal = txtCurbal.Text
End Property

Public Property Let Curbal(ByVal New_Curbal As String)
txtCurbal.Text() = New_Curbal
PropertyChanged "Curbal"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=txtIssueunit,txtIssueunit,-1,Text
Public Property Get Issueunit() As String
Issueunit = txtIssueunit.Text
End Property

Public Property Let Issueunit(ByVal New_Issueunit As String)
txtIssueunit.Text() = New_Issueunit
PropertyChanged "Issueunit"
End Property

'Load property values from storage
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

txtItemnum.Text = PropBag.ReadProperty("Itemnum", "&quot
txtDescription.Text = PropBag.ReadProperty("Description", "&quot
txtIn1.Text = PropBag.ReadProperty("In1", "&quot
txtIn2.Text = PropBag.ReadProperty("In2", "&quot
txtIl5.Text = PropBag.ReadProperty("Il5", "&quot
txtBinnum.Text = PropBag.ReadProperty("Binnum", "&quot
txtIl4.Text = PropBag.ReadProperty("Il4", "&quot
txtCurbal.Text = PropBag.ReadProperty("Curbal", "&quot
txtIssueunit.Text = PropBag.ReadProperty("Issueunit", "&quot
End Sub

'Write property values to storage
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

Call PropBag.WriteProperty("Itemnum", txtItemnum.Text, "&quot
Call PropBag.WriteProperty("Description", txtDescription.Text, "&quot
Call PropBag.WriteProperty("In1", txtIn1.Text, "&quot
Call PropBag.WriteProperty("In2", txtIn2.Text, "&quot
Call PropBag.WriteProperty("Il5", txtIl5.Text, "&quot
Call PropBag.WriteProperty("Binnum", txtBinnum.Text, "&quot
Call PropBag.WriteProperty("Il4", txtIl4.Text, "&quot
Call PropBag.WriteProperty("Curbal", txtCurbal.Text, "&quot
Call PropBag.WriteProperty("Issueunit", txtIssueunit.Text, "&quot
End Sub

***********************************************************

Brad Pitcher
The Hoover Company
bpitcher@hoover.com

 

[tnguyen03]

...did you use the Procedure Attributes dialog box to make the properties data-bound for your controls?

 

[bpitche]

Yes, all of the properies are data-bound

Brad Pitcher
The Hoover Company
bpitcher@hoover.com