Private Sub PeopleTypes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    LoadComboBox()

    PeopleTypesDatarepeater.BeginResetItemTemplate()

    strSQL = "SELECT * FROM viewPeopleTypes WHERE PeopleID = " & intID
    daPeopleTypes = New SqlDataAdapter(strSQL, connPeopleTypes)
    daPeopleTypes.Fill(dt)
    bs.DataSource = dt

    PeopleTypesDatarepeater.EndResetItemTemplate()
    PeopleTypesDatarepeater.DataSource = bs

    If bs.Count = 0 Then
        btnDelete.Visible = False
    Else
        btnDelete.Visible = True
    End If

End Sub

Private Sub LoadComboBox()

    daPTCombo = New SqlDataAdapter( _
      "SELECT * FROM tlkpPeopleTypes ORDER BY PeopleType", connPeopleTypes)

    'set up People Type combo box
    daPTCombo.Fill(dsPTCombo, "tlkpPeopleTypes")

    cboPeopleType.DataSource = dsPTCombo.Tables("tlkpPeopleTypes")
    cboPeopleType.DisplayMember = "PeopleType"
    cboPeopleType.ValueMember = "PeopleTypeID"
    cboPeopleType.Text = ""

End Sub

Private Sub PeopleTypesDatarepeater_ItemCloned(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.PowerPacks.DataRepeaterItemEventArgs) Handles PeopleTypesDatarepeater.ItemCloned

    Dim Source As ComboBox = _
          CType(PeopleTypesDatarepeater.ItemTemplate.Controls.Item("cboPeopleType"), ComboBox)
    Dim ComboBox1 As ComboBox = _
          CType(e.DataRepeaterItem.Controls.Item("cboPeopleType"), ComboBox)

    For Each s As String In Source.Items
        ComboBox1.Items.Add(s)
    Next

End Sub

Hello Kris,

I understand your issue now. It seems the issue is in
ComboBox.DataSoruce = dsPTCombo.Tables("tlkpPeopleTypes") ' A DataTable
It seems all ComboBoxes share a same datasource here and so when you change one it will reflect to others.
I will check with other people to see if this is a bug or not.

For your code bellow:
For Each s As String In Source.Items
ComboBox1.Items.Add(s)
Next
It is expected not working.
When you use the databinding feature (ComboBox.DataSource = ...), then you can not get or set the items.Source.Items
in the code above will return empty collection and so you don't see the code is called.

OK, now here is something that works in my computer, I used Northwind for my sample



Public Class Form1

Private dataLoaded As Boolean = False
Private Sub LoadData()
If (dataLoaded) Then
Return
End If
dataLoaded = True
Me.ProductsTableAdapter.Fill(Me.NorthwindDataSet2.Products)
Me.CategoriesTableAdapter.Fill(Me.NorthwindDataSet2.Categories)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LoadData()
End Sub

Private Sub DataRepeater1_ItemCloned(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.PowerPacks.DataRepeaterItemEventArgs) Handles DataRepeater1.ItemCloned
' Ensure data loaded
LoadData()

Dim ComboBox1 As ComboBox = _
CType(e.DataRepeaterItem.Controls.Item("Category_IDComboBox"), ComboBox)
ComboBox1.DataSource = New BindingSource(Me.NorthwindDataSet2.Categories, "")
ComboBox1.DisplayMember = "Category Name"
ComboBox1.ValueMember = "Category ID"
End Sub
End Class

Hope this would help you.

Dude not to be rude but please do yourself a favor and get rid of the datarepeater it is a horrible microsoft failure!!!!!! TRUST ME I WAISTED 2 MONTHS WITH THAT CONTROL AND ALMOST LOST MY JOB!!!!!