Select Case e.DataCol.name
Case "操作员","星期","周","制造号"
Dim d1 As Date = e.DataRow("生产日期")
Dim y1 As Integer = d1.year '取得今年的年份
Dim y2 As String = Cstr(y1) '将数字转化为字符串
If y2.length > 3
Dim y3 As String = y2.substring(2,2)
If e.DataRow("周") < 10
e.DataRow("批号") = e.DataRow("制造号") & y3 & "0" & Cstr(e.DataRow("周")) & Cstr(e.DataRow("星期")) & e.DataRow("操作员")
Else
e.DataRow("批号") = e.DataRow("制造号") & y3 & Cstr(e.DataRow("周")) & Cstr(e.DataRow("星期")) & e.DataRow("操作员")
End If
End If
End Select
上面那段代码会出现如下警告,请问是哪里的问题?谢谢。
错误所在事件:表,JPK612任务单,DataColChanged
详细错误信息:
调用的目标发生了异常。
从字符串“”到类型“Double”的转换无效。
输入字符串的格式不正确。