| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]代码错误 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87141) |
| -- 作者：陈卫 -- 发布时间：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
|
| -- 作者：大红袍 -- 发布时间：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 [此贴子已经被作者于2016/7/4 17:12:36编辑过]
|
| -- 作者：陈卫 -- 发布时间：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 |
| -- 作者：大红袍 -- 发布时间：2016/7/4 17:29:00 -- 用2楼的，没报错啊。 |
| -- 作者：陈卫 -- 发布时间：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 |
| -- 作者：大红袍 -- 发布时间：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
|