Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]


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

主题：[求助]
帅哥哟，离线，有人找我吗？
陈卫
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：126 积分：813 威望：0 精华：0 注册：2015/10/22 10:35:00 		[求助]  发帖心情 Post By：2016/6/24 15:55:00 [只看该作者]

请问专家，下面代码为什么不输出结果？蓝色部分是不是不对？
 If e.DataRow.IsNull("本工序_应投产数量_根") OrElse e.DataRow.IsNull("本工序_日生产能力_根") Then
     e.DataRow("本工序_生产周期_天")=Nothing
     Else
     If e.DataRow.IsNull("本工序_设备_投入数量") Then
          e.DataRow("本工序_设备_投入数量")=1
          Else
          e.DataRow("本工序_生产周期_天") = e.DataRow("本工序_应投产数量_根") /( e.DataRow("本工序_日生产能力_根") * e.DataRow("本工序_设备_投入数量"))
      End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/24 16:11:00 [只看该作者]

加上msgbox，看弹出什么

 

msgbox(1)
If e.DataRow.IsNull("本工序_应投产数量_根") OrElse e.DataRow.IsNull("本工序_日生产能力_根") Then
    e.DataRow("本工序_生产周期_天")=Nothing
Else
msgbox(2)
    If e.DataRow.IsNull("本工序_设备_投入数量") Then
msgbox(3)
        e.DataRow("本工序_设备_投入数量")=1
    Else
msgbox(4 & " " & e.DataRow("本工序_日生产能力_根") & " " & e.DataRow("本工序_设备_投入数量"))
        e.DataRow("本工序_生产周期_天") = e.DataRow("本工序_应投产数量_根") /( e.DataRow("本工序_日生产能力_根") * e.DataRow("本工序_设备_投入数量"))
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
陈卫
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：126 积分：813 威望：0 精华：0 注册：2015/10/22 10:35:00 		  发帖心情 Post By：2016/6/24 16:42:00 [只看该作者]

好像是蓝色部分有问题，怎么改？
 Case "本工序_日生产能力_根","包装工序_需要数量_根","本工序_库存在制品_根","本工序_废品损失率_百分比"
        If e.DataRow.IsNull("包装工序_需要数量_根") Then
            e.DataRow("本工序_应投产数量_根")=Nothing
        Else
            If e.DataRow.IsNull("本工序_库存在制品_根") Then
                e.DataRow("本工序_库存在制品_根")=0
            Else
                If e.DataRow.IsNull("本工序_废品损失率_百分比") Then
                    e.DataRow("本工序_废品损失率_百分比")=0
                Else
                    e.DataRow("本工序_应投产数量_根") = e.DataRow("包装工序_需要数量_根")*(e.DataRow("本工序_废品损失率_百分比")+1) - e.DataRow("本工序_库存在制品_根")'
                End If
            
                If e.DataRow.IsNull("本工序_应投产数量_根") OrElse e.DataRow.IsNull("本工序_日生产能力_根") Then
                        e.DataRow("本工序_生产周期_天")=Nothing
                Else
                     If e.DataRow.IsNull("本工序_设备_投入数量") Then
                            e.DataRow("本工序_设备_投入数量")=1
                     Else
                            e.DataRow("本工序_生产周期_天") = e.DataRow("本工序_应投产数量_根") /( e.DataRow("本工序_日生产能力_根") * e.DataRow("本工序_设备_投入数量"))
                     End If
                End If
            End If
        End If
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/24 17:08:00 [只看该作者]

呃，试试

 

If e.DataRow("本工序_应投产数量_根") = 0 OrElse e.DataRow("本工序_日生产能力_根") = 0 Then
 回到顶部
帅哥哟，离线，有人找我吗？
陈卫
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：126 积分：813 威望：0 精华：0 注册：2015/10/22 10:35:00 		  发帖心情 Post By：2016/6/24 17:09:00 [只看该作者]

按照2楼办法，第一次显示1，确定后第二次显示2，确定后第三次显示3，确定后还是没有"本工序_生产周期_天"的结果

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/24 17:11:00 [只看该作者]

 

If e.DataRow("本工序_应投产数量_根") = 0 OrElse e.DataRow("本工序_日生产能力_根") = 0 Then
    e.DataRow("本工序_生产周期_天")=Nothing
Else
    If e.DataRow.IsNull("本工序_设备_投入数量") Then
        e.DataRow("本工序_设备_投入数量")=1
    End If
    e.DataRow("本工序_生产周期_天") = e.DataRow("本工序_应投产数量_根") /( e.DataRow("本工序_日生产能力_根") * e.DataRow("本工序_设备_投入数量"))
End If
 回到顶部
帅哥哟，离线，有人找我吗？
陈卫
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：126 积分：813 威望：0 精华：0 注册：2015/10/22 10:35:00 		  发帖心情 Post By：2016/6/24 17:14:00 [只看该作者]

按照4楼的办法，结果同5楼一样

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/24 17:15:00 [只看该作者]

看6楼

 回到顶部
帅哥哟，离线，有人找我吗？
陈卫
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：126 积分：813 威望：0 精华：0 注册：2015/10/22 10:35:00 		  发帖心情 Post By：2016/6/24 17:25:00 [只看该作者]

蓝色部分没有改，按照6楼办法，改了红色部分。问题得到解决，谢谢专家！！
 If e.DataRow.IsNull("本工序_应投产数量_根") OrElse e.DataRow.IsNull("本工序_日生产能力_根") Then
       e.DataRow("本工序_生产周期_天")=Nothing
 Else
       If e.DataRow.IsNull("本工序_设备_投入数量") Then
       e.DataRow("本工序_设备_投入数量")=1
       End If
       e.DataRow("本工序_生产周期_天") = e.DataRow("本工序_应投产数量_根") /( e.DataRow("本工序_日生产能力_根") * e.DataRow("本工序_设备_投入数量"))      
End If
 回到顶部
帅哥哟，离线，有人找我吗？
754169574
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：1 积分：71 威望：0 精华：0 注册：2016/6/24 21:23:00 		  发帖心情 Post By：2016/6/24 21:28:00 [只看该作者]


excel 是2007版，foxtable 2016版
执行导入时出错：
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.6.20.1
错误所在事件：
详细错误信息：
Microsoft Jet 数据库引擎找不到对象'明广报价2015'。请确定对象是否存在，并正确地写出它的名称和路径。

'合并Excel文件:
Dim mg As New Merger
mg.SourcePath = "c:\明广报价2015.xls"
mg.Format = "excel"
mg.SourceTableName = "明广报价2015$"
mg.DataTableName = "明广报价2015"
mg.Merge()
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05701 秒, 4 次数据查询