以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]清除内容出错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=157868)

--  作者:hanlingli111999
--  发布时间:2020/10/31 12:06:00
--  [求助]清除内容出错
蓝老师好,辛苦了,我清除单元格内容时,出现以下提示,是怎么回事呀,怎么消除
谢谢了


.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2020.5.29.8
错误所在事件:表,拆分表,DataColChanged
详细错误信息:
Exception has been thrown by the target of an invocation.
Value cannot be null.
Parameter name: input


--  作者:有点蓝
--  发布时间:2020/10/31 13:59:00
--  
贴出出错事件代码:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=150626
--  作者:hanlingli111999
--  发布时间:2020/10/31 14:04:00
--  
单元个内容为:r("板厚") = ("钢板"&ary(0).SubString(1)&"厚")
For Each r As Row In Tables("拆分表").rows
    If r("钢板型号") = "" Then
        r("板宽") = Nothing
               r("板厚") = Nothing
           Else
        Dim ary() As String =  r("钢板型号") .split(new Char(){"X","*","x"})              
     r("板厚") = ("钢板"&ary(0).SubString(1)&"厚")

                r("板宽") = ary(1)/1000
    End If
Next

--  作者:hanlingli111999
--  发布时间:2020/10/31 14:05:00
--  
但这个代码运行不错
--  作者:有点蓝
--  发布时间:2020/10/31 14:14:00
--  
简直就是乱写

If e.DataCol.Name = "钢板型号" Then
    If e.DataRow.IsNull("
钢板型号"Then 
        e.
DataRow("
板宽") = Nothing 
    
Else
    
  
 Dim ary() As String =  e.DataRow("钢板型号") .split(new Char(){"X","*","x"})   
if ary(0).length > 1
        e.
DataRow("
板厚") = "钢板" & ary(0).SubString(1) & "厚"
end if
if ary.length > 1
        e.DataRow("板宽") = ary(1)/1000
end if
    End
 If
End
 
If