Foxtable(狐表)用户栏目专家坐堂 → [求助]这段代码问题出在哪里!


  共有9326人关注过本帖树形打印复制链接

主题:[求助]这段代码问题出在哪里!

帅哥哟,离线,有人找我吗?
hiliqi
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:31 积分:343 威望:0 精华:0 注册:2012/10/31 19:09:00
[求助]这段代码问题出在哪里!  发帖心情 Post By:2012/11/16 11:09:00 [只看该作者]

这段代码可以正执行,但是运行的同时会报一个错!这是出错的截图
图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看
以下是代码:
If MessageBox.Show("确认下达吗","确认",MessageBoxButtons.OKCancel,messageboxicon.question) = DialogResult.OK Then
    Dim dr As DataRow '引用新表中要增加的行
    Dim dr2 As DataRow '遍历该表中的所有行并找到符合条件的行
    
    For Each dr2 In DataTables("生产计划单").DataRows()
        If dr2 IsNot Nothing
            If dr2.IsNull("标签需求量") = True Or dr2.IsNull("筒子需求量") = True Or dr2.IsNull("纸箱需求量") = True Then  '如果有一列为空则重新循环
                Continue For
            Else
                Dim dr3 As DataRow = DataTables("生产计划单").Find("产品名称 = '" & dr2("产品名称") & "'","序号 desc") '找到与dr2的产品名称相同的所有行,取序号最大的那一行
                
                dr = DataTables("物料需求单").AddNew() '往新表中增加一行
                dr("物料名称") = dr3("所需筒子")       '往新表中写入该列数据
                dr("需求数量") = dr3("筒子需求量")
                dr("下单时间") = Date.Today            '写入当前日期
                
                dr = DataTables("物料需求单").AddNew() '往新表中增加一行
                dr("物料名称") = dr3("所需标签")       '往新表中写入该列数据
                dr("需求数量") = dr3("标签需求量")
                dr("下单时间") = Date.Today            '写入当前日期
                
                dr = DataTables("物料需求单").AddNew() '往新表中增加一行
                dr("物料名称") = dr3("所需纸箱")
                dr("需求数量") = dr3("纸箱需求量")     '往新表中写入该列数据
                dr("下单时间") = Date.Today            '写入当前日期
                DataTables("生产计划单").DeleteFor("产品名称 = '" & dr3("产品名称") & "'") '避免重复向新表写入数据
            End If
        End If
    Next
    DataTables("生产计划单").DeleteFor("")
End If

 回到顶部
帅哥哟,离线,有人找我吗?
hiliqi
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:31 积分:343 威望:0 精华:0 注册:2012/10/31 19:09:00
  发帖心情 Post By:2012/11/16 11:18:00 [只看该作者]

有没有高人帮忙看看啊

 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2012/11/16 11:43:00 [只看该作者]

可以先在 生产计划单 作个标记,到时一次删除这些有标记的行。

不要在for each   ···· next  中删除行。

[此贴子已经被作者于2012-11-16 11:43:44编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
muhua
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:等待验证 帖子:3855 积分:20692 威望:0 精华:5 注册:2012/6/21 14:03:00
  发帖心情 Post By:2012/11/16 11:44:00 [只看该作者]

用户已被锁定

 回到顶部