1、 e.Form.Controls("DateTimePicker1").value = Date.Now()
2、 e.Form.Controls("TextBox1").value = "AA2011060001"
3、
For Each r As Row In Tables("某表").GetCheckedRows ‘ 复制到指定表
Next