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