主题：字符提取

车次是：1号车（第1车）提取第一字符1、再提取提取第六字符1，地点编号开头是11再加01，地点编号是1101

车次是：1号车（第2车）提取第一字符1、再提取提取第六字符2，地点编号开头是12再加01，地点编号是1201

怎样把s2 加入，请指点，谢谢！

Dim s2 As String =  e.DataRow("车次").SubString(5,1)
Dim s1 As String = e.DataRow("车次").SubString(0,1)
Dim s3 As String = s1 & s2
Dim max As String
max = e.DataTable.Compute("Max(地点编号)","学期 = '2017年春季' And 地点编号 Like '"& s3 &"'")
If max = "" Then
    e.DataRow("地点编号") = s3 & "01"
Else
    Dim v As Integer = max.SubString(2,2)
    e.DataRow("地点编号") = s3 & format(v +1,"00")
End If