增加行按钮
Dim dr As Row = Tables("表A").Rows.AddNew()e.Form.Controls("DateTimePicker1").Select()e.Form.Controls("TextBox1").Select()e.Form.Controls("DateTimePicker1").Select()