主题：求窗口中的整列输入的解决方法

大概如此：

Dim v1 as String = e.Form.Controls("TextBox1").text

Dim v2 As String  = e.Form.Controls("TextBox2").text

dim v3 As Date = e.Form.Controls("DateTimePicker1").Value

For each r As Row in Tables("表A").Rows

    r("产品名称") = v1

    r("产品划分") = v2

    r("日期") = v3

Next

DataTables("A表").Save()