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”的转换无效。
输入字符串的格式不正确。
加好友 
发短信
Post By：2020/4/3 16:04:00 [只看该作者]
