Retrieve DataList Value

[Xiru]

I would like to retrieve the value from a DataList on postback. I can
read the ItemIndex and values from a child TextBox but not cannot seem
to find a way to read a databound item on the datalist. Here is some
code to help clarify. I want to display the items from a shopping list
that had a unit number filled in a textbox next to the product:

' Create a holding place for list items with units filled in
Dim itemsUnits As New DataSet
Dim itemUnitsTable As DataTable
Dim itemUnitsRow As DataRow
' Add new table
itemUnitsTable =
itemsUnits.Tabl es.Add("Purchas eListItems")

' Define Columns
With itemUnitsTable
.Columns.Add("l ist_item_id", GetType(System. Int16))
.Columns.Add("l ist_item_name", GetType(System. String))
.Columns.Add("p urchase_list_it em_units",
GetType(System. Int16))
End With
' Fetch list items
For Each aItem As DataListItem In DataList1.Items
' Find nested datalist control for list items
Dim bList As DataList = aItem.FindContr ol("DataList2" )

' Iterate through list items to create the new dataset
For Each bItem As DataListItem In bList.Items
Dim pTextBox As TextBox =
bItem.FindContr ol("Textbox1")
Dim productId As Integer = bItem.ItemIndex
' ****** HERE IS WHERE I NEED HELP **********
'Dim productName As String = bItem.DataItem
'Dim productName As String =
DataBinder.Eval (bItem.DataItem , "Product")
' *************** *************** ***************

If pTextBox.Text = "" Then pTextBox.Text = 0
Dim productUnits As Integer = CInt(pTextBox.T ext)
If productUnits > 0 Then
' Create a new row to store values
itemUnitsRow = itemUnitsTable. NewRow
With itemUnitsRow
.Item("list_ite m_id") = productId
.Item("list_ite m_name") = productName
.Item("purchase _list_item_unit s") =
productUnits
End With
' Now add rows to DataTable
itemUnitsTable. Rows.Add(itemUn itsRow)
End If
Next
Next
' Bind selected list items for confirmation
DataList3.DataS ource = itemsUnits
DataList3.DataB ind()