-- 作者:狐狸爸爸
-- 发布时间:2012/6/13 10:01:00
--
大概如此:
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()
|