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


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

主题:[求助]代码错误

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


加好友 发短信
等级:幼狐 帖子:126 积分:813 威望:0 精华:0 注册:2015/10/22 10:35:00
[求助]代码错误  发帖心情 Post By:2016/7/4 17:07:00 [只看该作者]

请问专家,下面这段代码怎么改才正确?
If e.DataRow.IsNull("本工序_应投产数量_根") OrElse (e.DataRow.("本工序_日生产能力_平锻机1")+e.DataRow.("本工序_日生产能力_平锻机2")+e.DataRow.("本工序_日生产能力_平锻机3")+e.DataRow.("本工序_日生产能力_平锻机4")+ e.DataRow.("本工序_日生产能力_平锻机5")+e.DataRow.("本工序_日生产能力_平锻机"))=0    Then
    e.DataRow("本工序_生产周期_天")=Nothing
    Else
    e.DataRow("本工序_生产周期_天") = e.DataRow("本工序_应投产数量_根") / (e.DataRow.("本工序_日生产能力_平锻机1")+e.DataRow.("本工序_日生产能力_平锻机2")+e.DataRow.("本工序_日生产能力_平锻机3")+e.DataRow.("本工序_日生产能力_平锻机4")+ e.DataRow.("本工序_日生产能力_平锻机5")+e.DataRow.("本工序_日生产能力_平锻机"))
End If

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


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

 

 

If e.DataRow.IsNull("本工序_应投产数量_根") OrElse (e.DataRow("本工序_日生产能力_平锻机1")+e.DataRow("本工序_日生产能力_平锻机2")+e.DataRow("本工序_日生产能力_平锻机3")+e.DataRow("本工序_日生产能力_平锻机4")+ e.DataRow("本工序_日生产能力_平锻机5")+e.DataRow("本工序_日生产能力_平锻机"))=0    Then
    e.DataRow("本工序_生产周期_天")=Nothing
Else
    e.DataRow("本工序_生产周期_天") = e.DataRow("本工序_应投产数量_根") / (e.DataRow.("本工序_日生产能力_平锻机1")+e.DataRow.("本工序_日生产能力_平锻机2")+e.DataRow.("本工序_日生产能力_平锻机3")+e.DataRow.("本工序_日生产能力_平锻机4")+ e.DataRow.("本工序_日生产能力_平锻机5")+e.DataRow.("本工序_日生产能力_平锻机"))
End If

[此贴子已经被作者于2016/7/4 17:12:36编辑过]

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


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

错误提示如下:
编译错误:应为标识符
错误代码:
If e.DataRow.IsNull("本工序_应投产数量_根") OrElse (e.DataRow("本工序_日生产能力_平锻机1")+e.DataRow("本工序_日生产能力_平锻机2")+e.DataRow("本工序_日生产能力_平锻机3")+e.DataRow("本工序_日生产能力_平锻机4")+ e.DataRow("本工序_日生产能力_平锻机5")+e.DataRow("本工序_日生产能力_平锻机"))=0    Then

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


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

 用2楼的,没报错啊。

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


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

扩大一些范围,看看问题在哪里?蓝色部分是从2楼粘贴的。
 Case "本工序_日生产能力_平锻机1","本工序_日生产能力_平锻机2","本工序_日生产能力_平锻机3","本工序_日生产能力_平锻机4","本工序_日生产能力_平锻机5","本工序_日生产能力_平锻机6","热处理工序_需要数量_根"
        If e.DataRow.IsNull("热处理工序_需要数量_根") Then
            e.DataRow("本工序_应投产数量_根")=Nothing
        Else
            e.DataRow("本工序_应投产数量_根") = e.DataRow("热处理工序_需要数量_根")*(e.DataRow("本工序_废品损失率_百分比")+1)
            
        End If
        If e.DataRow.IsNull("本工序_日生产能力_平锻机1") Then
            e.DataRow("本工序_日生产能力_平锻机1")=0
        Else If e.DataRow.IsNull("本工序_日生产能力_平锻机2") Then
            e.DataRow("本工序_日生产能力_平锻机2")=0
        Else If e.DataRow.IsNull("本工序_日生产能力_平锻机3") Then
            e.DataRow("本工序_日生产能力_平锻机3")=0
        Else If e.DataRow.IsNull("本工序_日生产能力_平锻机4") Then
            e.DataRow("本工序_日生产能力_平锻机4")=0
        Else If e.DataRow.IsNull("本工序_日生产能力_平锻机5") Then
            e.DataRow("本工序_日生产能力_平锻机5")=0
        Else If e.DataRow.IsNull("本工序_日生产能力_平锻机6") Then
            e.DataRow("本工序_日生产能力_平锻机6")=0
            If e.DataRow.IsNull("本工序_应投产数量_根") OrElse (e.DataRow("本工序_日生产能力_平锻机1")+e.DataRow("本工序_日生产能力_平锻机2")+e.DataRow("本工序_日生产能力_平锻机3")+e.DataRow("本工序_日生产能力_平锻机4")+ e.DataRow("本工序_日生产能力_平锻机5")+e.DataRow("本工序_日生产能力_平锻机"))=0    Then
                e.DataRow("本工序_生产周期_天")=Nothing
            Else
                e.DataRow("本工序_生产周期_天") = e.DataRow("本工序_应投产数量_根") / (e.DataRow.("本工序_日生产能力_平锻机1")+e.DataRow.("本工序_日生产能力_平锻机2")+e.DataRow.("本工序_日生产能力_平锻机3")+e.DataRow.("本工序_日生产能力_平锻机4")+ e.DataRow.("本工序_日生产能力_平锻机5")+e.DataRow.("本工序_日生产能力_平锻机"))
            End If       
        End If


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


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

If e.DataRow.IsNull("本工序_应投产数量_根") OrElse (e.DataRow("本工序_日生产能力_平锻机1")+e.DataRow("本工序_日生产能力_平锻机2")+e.DataRow("本工序_日生产能力_平锻机3")+e.DataRow("本工序_日生产能力_平锻机4")+ e.DataRow("本工序_日生产能力_平锻机5")+e.DataRow("本工序_日生产能力_平锻机"))=0    Then
    e.DataRow("本工序_生产周期_天")=Nothing
Else
    e.DataRow("本工序_生产周期_天") = e.DataRow("本工序_应投产数量_根") / (e.DataRow("本工序_日生产能力_平锻机1")+e.DataRow("本工序_日生产能力_平锻机2")+e.DataRow("本工序_日生产能力_平锻机3")+e.DataRow("本工序_日生产能力_平锻机4")+ e.DataRow("本工序_日生产能力_平锻机5")+e.DataRow("本工序_日生产能力_平锻机"))
End If

 


 回到顶部