DataTable绑定Repeater控件中的数据（vb.net）

Private Sub CreateTable()
Dim ProDTb As New DataTable//首先声明这是一个DataTable类
ProDTb.Columns.Add("AutoId", System.Type.GetType("System.String"))
ProDTb.Columns.Add("产品编号", System.Type.GetType("System.String"))
ProDTb.Columns.Add("产品名称", System.Type.GetType("System.String"))//生成一个新列，绘制DataTable的结构，注意这里的书写格式
ProDTb.Columns.Add("零售价", System.Type.GetType("System.Decimal"))
ProDTb.Columns.Add("供价", System.Type.GetType("System.Decimal"))
ProDTb.Columns.Add("iNum", System.Type.GetType("System.Int16"))
ProDTb.Columns.Add("iMoney", System.Type.GetType("System.Decimal"))
ProDTb.Columns.Add("Week1", System.Type.GetType("System.Int16"))
ProDTb.Columns.Add("Week2", System.Type.GetType("System.Int16"))
ProDTb.Columns.Add("Week3", System.Type.GetType("System.Int16"))
ProDTb.Columns.Add("Week4", System.Type.GetType("System.Int16"))
ProDTb.Columns.Add("Week5", System.Type.GetType("System.Int16"))
viewstate("ProDTb") = ProDTb//把新创建的表结构由viewstate来存储
Repeater1.DataSource = ProDTb//用新建的DataTable结构来绑定Repeater控件
Repeater1.DataBind()
End Sub
============================================================================================
//执行的保存操作，再把Repeater控件中的数据读出并传给DataTable中相应的字段
Dim ProDTb As DataTable = viewstate("ProDTb")
ProDTb.Rows.Clear()
Dim item As RepeaterItem//定义Repeater控件中的元素，声明其类型
Dim myDataRow As DataRow　// 定义一个数据行
Dim i As Integer = 0
For Each item In Repeater1.Items//使用for each循环，读出Repeater控件中的元素，并赋给数据行
i = i + 1
myDataRow = ProDTb.NewRow()
myDataRow("AutoId") = i
myDataRow("产品编号") = CType(item.FindControl("ProName"), TextBox).ToolTip
myDataRow("产品名称") = CType(item.FindControl("ProName"), TextBox).Text.Trim
myDataRow("零售价") = CType(item.FindControl("lsPrice"), Literal).Text.Trim
myDataRow("供价") = CType(item.FindControl("GjPrice"), Literal).Text.Trim
myDataRow("iNum") = CType(item.FindControl("iNum"), TextBox).Text.Trim
myDataRow("iMoney") = CType(item.FindControl("iMoney"), Literal).Text.Trim
myDataRow("Week1") = CType(item.FindControl("Week1"), TextBox).Text.Trim
myDataRow("Week2") = CType(item.FindControl("Week2"), TextBox).Text.Trim
myDataRow("Week3") = CType(item.FindControl("Week3"), TextBox).Text.Trim
myDataRow("Week4") = CType(item.FindControl("Week4"), TextBox).Text.Trim
myDataRow("Week5") = CType(item.FindControl("Week5"), TextBox).Text.Trim
ProDTb.Rows.Add(myDataRow)//添加一行
Next