Dim S As WinForm.NumericComboBox = e.Form.Controls("增加多行数")Dim I As IntegerS = e.Form.Controls("增加多行数")I = CInt(S)Tables("销售订单.订单明细").AddNew(I)