请帮助解决? 下列代码执行出现下列错误,如何修改代码?
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
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/jpg.gif)
此主题相关图片如下:9.jpg