For i As Integer = 1 To e.form.controls("NumericComboBox1").value Dim dr As DataRow = DataTables("学习表").addnew dr("学习类型")=e.form.controls("ComboBox4").textNext