以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]转换报错?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108232)

--  作者:zgjmost
--  发布时间:2017/10/18 17:46:00
--  [求助]转换报错?
For Each dr As Row In Tables("成绩台帐").rows
    Dim s2 As Integer = CInt(dr("分数"))
    If s2 < 60 Then
        dr("分数") = ""
    End If
Next

dr("分数")原来为文本

--  作者:有点甜
--  发布时间:2017/10/18 20:52:00
--  
For Each dr As Row In Tables("成绩台帐").rows
    Dim s2 As Integer = val(dr("分数"))
    If s2 < 60 Then
        dr("分数") = ""
    End If
Next