以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]字符串截取的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=164308)
--  作者：tygzjsl
--  发布时间：2021/5/5 20:10:00
--  [求助]字符串截取的问题
老师你好，有这行代码

Dim r As Row = Tables("高考信息查询表汇总").Current

If r IsNot Nothing Then

    e.Form.Controls("textbox5").text = r("专业名称").SubString(0,4)

End If


可是有的专业名称里有的专业是英语，法学，只有两个字符，就出错，应该怎么改？谢谢！
--  作者：有点蓝
--  发布时间：2021/5/6 8:36:00
--  

Dim r As Row = Tables("高考信息查询表汇总").Current

If r IsNot Nothing Then

if r("专业名称").length > 4

    e.Form.Controls("textbox5").text = r("专业名称").SubString(0,4)

else

e.Form.Controls("textbox5").text = r("专业名称")

end if

End If
--  作者：tygzjsl
--  发布时间：2021/5/6 9:25:00
--  
非常感谢老师！
还有一个问题请教啊！

Select Case e.Col.Name

    Case "专业名称"

        Dim str = e.Form.Controls("TextBox12").Text

str &= " " & e.Row("专业名称").SubString(0,4)

        str = str.trim(" ")

        e.Form.Controls("TextBox12").Text = str

End Select

这个也是上述的问题（字符串不到4个出错），我试着改了一个。

Select Case e.Col.Name

Case "专业名称"

   

        Dim str = e.Form.Controls("TextBox4").Text

        If str IsNot Nothing Then

if str("专业名称").length > 4

str &= " " & e.Row("专业名称").SubString(0,4)

        else

e.Form.Controls("textbox4").text = str("专业名称")

end if

End If

str = str.trim(" ")

        e.Form.Controls("TextBox4").Text = str

End Select


结果出错“从字符串“专业名称”到类型“Integer”的转换无效。”，又蒙了，又得麻烦老师啦。
这行代码是想实现点击专业就进入文本框里，可以多选几个。你给我的代码只能一次选一个实现功能了，非常感谢老师！再看看这行代码怎么改！谢谢！
--  作者：tygzjsl
--  发布时间：2021/5/6 9:36:00
--  
老师我是根据这个代码改的！

Select Case e.Col.Name

    Case "列名"

        Dim str = e.Form.Controls("TextBox12").Text

        str &= " " & e.Row("列名")

        str = str.trim(" ")

        e.Form.Controls("TextBox12").Text = str

End Select
--  作者：有点蓝
--  发布时间：2021/5/6 10:40:00
--  
非常感谢老师！
还有一个问题请教啊！

Select Case e.Col.Name

    Case "专业名称"

        Dim str = e.Form.Controls("TextBox12").Text

if e.Row("专业名称").length > 4

str &= " " & e.Row("专业名称").SubString(0,4)

else

str &= " " & e.Row("专业名称")

endif

        str = str.trim(" ")

        e.Form.Controls("TextBox12").Text = str

End Select
--  作者：tygzjsl
--  发布时间：2021/5/6 10:47:00
--  
完美解决问题，非常感谢！