| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 求助：调用的目标发生了异常。 从字符串“”到类型“Double”的转换无效 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=138111) |
| -- 作者：wuhanwei212 -- 发布时间：2019/7/23 10:13:00 -- 求助：调用的目标发生了异常。 从字符串“”到类型“Double”的转换无效 老师，在设计过程中，突然出现以下问题，能不能帮我再看下，谢谢！ 报错内容： .NET Framework 版本：2.0.50727.3053 Foxtable 版本：2018.8.30.1 错误所在事件：表，执行指挥中心，DataColChanged 详细错误信息： 调用的目标发生了异常。 从字符串“”到类型“Double”的转换无效。 输入字符串的格式不正确。 代码如下： 执行指挥中心_DataColChanged
Select Case e.DataCol.Name
Case "收案日期"
If e.DataRow.IsNull("收案日期") Then
e.DataRow("执行通知书到期日") = Nothing
Else
e.DataRow("执行通知书到期日") = e.DataRow("收案日期").AddDays(7)
End If End Select
Select Case e.DataCol.Name Case "财产价格确定时间" If e.DataRow.IsNull("财产价格确定时间")
Then e.DataRow("一拍启动到期日") =
Nothing Else e.DataRow("一拍启动到期日") =
e.DataRow("财产价格确定时间").AddDays(30) End If End Select
Select Case e.DataCol.Name Case "一拍启动到期日","标的物类型" If e.DataRow.IsNull("一拍启动到期日")
OrElse e.DataRow.IsNull("标的物类型") Then e.DataRow("二拍启动到期日") =
Nothing Else If e.DataRow("标的物类型") =
"动产" Then e.DataRow("二拍启动到期日")
= e.DataRow("一拍启动到期日").AddDays(45) ElseIf e.DataRow("标的物类型")
= "不动产" Then e.DataRow("二拍启动到期日")
= e.DataRow("一拍启动到期日").AddDays(60) End If End If End Select
Select Case
e.DataCol.Name Case "二拍启动到期日","标的物类型" If e.DataRow.IsNull("二拍启动到期日")
OrElse e.DataRow.IsNull("标的物类型") Then e.DataRow("变卖启动到期日") =
Nothing Else If e.DataRow("标的物类型") = "动产"
Then e.DataRow("变卖启动到期日")
= e.DataRow("二拍启动到期日").AddDays(22) ElseIf e.DataRow("标的物类型")
= "不动产" Then e.DataRow("变卖启动到期日")
= e.DataRow("二拍启动到期日").AddDays(30) End If End If End Select
Select Case
e.DataCol.Name Case "查扣冻时间","查扣冻期限" If e.DataRow.IsNull("查扣冻时间")
Then e.DataRow("绝对到期时间") =
Nothing Else e.DataRow("绝对到期时间") =
e.DataRow("查扣冻时间").AddDays(e.DataRow("查扣冻期限")) End If End Select
|
| -- 作者：wuhanwei212 -- 发布时间：2019/7/23 10:21:00 -- 补充下：主要是在录入“查扣冻时间“和“财产价格确定时间”时，会报错，然后计算出来的结果在相应的表格会显示，但启动不了相应的样式。 |
| -- 作者：有点蓝 -- 发布时间：2019/7/23 10:25:00 -- Select Case e.DataCol.Name Case "查扣冻时间","查扣冻期限" If e.DataRow.IsNull("查扣冻时间") OrElse e.DataRow.IsNull("查扣冻期限") Then e.DataRow("绝对到期时间") = Nothing Else e.DataRow("绝对到期时间") = e.DataRow("查扣冻时间").AddDays(e.DataRow("查扣冻期限")) End If End Select
|