非常感谢老师！
还有一个问题请教啊！
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”的转换无效。”，又蒙了，又得麻烦老师啦。
这行代码是想实现点击专业就进入文本框里，可以多选几个。你给我的代码只能一次选一个实现功能了，非常感谢老师！再看看这行代码怎么改！谢谢！
加好友 
发短信
Post By：2021/5/5 20:10:00 [只看该作者]
