以文本方式查看主题 - 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 |