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