Dim r1 As Row = Tables("订单信息").Current Dim h As WinForm.NumericComboBox = e.Form.Controls("行数") MessageBox.Show(h.text) Dim r2 As Row = Tables("待确认项_待确认表").AddNew(h.text) r2("工单号") = r1("工单号") r2("制造单号") = r1("制造单号") r2("款号") = r1("款号") r2("业务员") = r1("业务员")