以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 从字符串“”到类型“Double”的转换无效 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148271) |
-- 作者:edisontsui -- 发布时间:2020/4/3 16:04:00 -- 从字符串“”到类型“Double”的转换无效 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”的转换无效。 输入字符串的格式不正确。 |
-- 作者:有点蓝 -- 发布时间:2020/4/3 16:14:00 -- 错误所在事件:表,JPK612任务单,DataColChanged只有这些代码吗? 试试 Select Case e.DataCol.name Case "操作员","星期","周","制造号","生产日期" Dim y3 As String = Format(e.DataRow("生产日期"),"yy") e.DataRow("批号") = e.DataRow("制造号") & y3 & Format(e.DataRow("周"),"00") & e.DataRow("星期") & e.DataRow("操作员") End Select |