Dim r As Row = Tables("成品降等").Current Dim txt As WinForm.TextBox = e.Form.Controls("TextBox35") r("降等_染花") = r("降等_染花") + txt.Text Dim sr As Row = Tables("成品开剪").Current If DataTables("成品降等").DataRows(1).IsNull("头部") Then sr("开剪_染花") = sr("开剪_染花") + 2 Else sr("开剪_染花") = sr("开剪_染花") + 1 End If