以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请帮助解决？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=28373)
--  作者：lyfxybc
--  发布时间：2013/1/26 19:11:00
--  请帮助解决？

 请帮助解决？ 下列代码执行出现下列错误，如何修改代码？

         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


图片点击可在新窗口打开查看此主题相关图片如下：9.jpg
图片点击可在新窗口打开查看
--  作者：lin_hailun
--  发布时间：2013/1/28 10:30:00
--  
 这句代码错了。

If DataTables("成品降等").DataRows(1).IsNull("头部") Then

 你的DataRows(1)想弄什么？你的表明显没有两行数据。
--  作者：lyfxybc
--  发布时间：2013/1/28 22:10:00
--  
谢谢