以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  设置数据列单元格格式出错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125225)
--  作者：ZJZK2018
--  发布时间：2018/9/22 20:18:00
--  设置数据列单元格格式出错

在表事件DrawCell中：

If e.Col.IsNumeric Then
    If e.Text = 0 Then
        e.Text = Nothing
    Else
        If e.Text <= 1 Then
            e.Text = Format(val(e.Text), "0.00%")
        Else
            e.Text = Format(val(e.Text), "0.00")
        End If
    End If
End If

错误提示：

.NET Framework 版本：2.0.50727.8762
Foxtable 版本：2018.9.9.1
错误所在事件：表，社保缴费标准，DrawCell
详细错误信息：
调用的目标发生了异常。
从字符串“”到类型“Double”的转换无效。
输入字符串的格式不正确。
--  作者：有点蓝
--  发布时间：2018/9/22 22:42:00
--  
If e.Col.IsNumeric Then
    Dim v = e.Row(e.Col.name)
    If v = 0 Then
        e.Text = Nothing
    Else
        If v <= 1 Then
            e.Text = Format(v, "0.00%")
        Else
            e.Text = Format(v, "0.00")
        End If
    End If
End If