Foxtable(狐表)用户栏目专家坐堂 → [求助]sheet1(i,x).value.IndexOf(/) = True Then报错说应为表达式?


  共有1810人关注过本帖树形打印复制链接

主题:[求助]sheet1(i,x).value.IndexOf(/) = True Then报错说应为表达式?

帅哥哟,离线,有人找我吗?
zgjmost
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:498 积分:4605 威望:0 精华:0 注册:2013/4/25 8:02:00
[求助]sheet1(i,x).value.IndexOf(/) = True Then报错说应为表达式?  发帖心情 Post By:2017/10/15 23:04:00 [只看该作者]

   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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:498 积分:4605 威望:0 精华:0 注册:2013/4/25 8:02:00
  发帖心情 Post By:2017/10/15 23:06:00 [只看该作者]

判断sheet1(i,x)是否含有/,如果有用/打断,又判断sts7(0)是否为空,如果不为空,那么将sts7(0)写入ksds("分数"),如果为空sts7(1)写入ksds("分数")

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 回到顶部