For i As Integer = 1 to 10
Dim nr As Row = Tables("表A").addnew
nr("第一列") = e.Form.Controls("ComboBox1").Value
nr("第二列") = e.Form.Controls("DateTimePicker1").Value
Next