以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]sheet1(i,x).value.IndexOf(/) = True Then报错说应为表达式?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108073)

--  作者:zgjmost
--  发布时间:2017/10/15 23:04:00
--  [求助]sheet1(i,x).value.IndexOf(/) = True Then报错说应为表达式?
   If sheet1(i,x).value.IndexOf(/) = True Then
                            Dim sts7() As String = sheet1(i,x).Text.Split("/")
                            If sts7(0) IsNot null Then
                                ksds("分数") = sts7(0)
                            Else
                                ksds("分数") = sts7(1)
                            End If
                        End If


--  作者:zgjmost
--  发布时间:2017/10/15 23:06:00
--  
判断sheet1(i,x)是否含有/,如果有用/打断,又判断sts7(0)是否为空,如果不为空,那么将sts7(0)写入ksds("分数"),如果为空sts7(1)写入ksds("分数")
--  作者:有点甜
--  发布时间:2017/10/15 23:16:00
--  

If sheet1(i,x).text.IndexOf("/") >= 0 Then
    Dim sts7() As String = sheet1(i,x).Text.Split("/")
    If sts7(0) <> nothing Then
        ksds("分数") = sts7(0)
    Else
        ksds("分数") = sts7(1)
    End If
End If