车次是：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
[此贴子已经被作者于2016/4/23 13:00:48编辑过]
加好友 
发短信
Post By：2016/4/23 12:07:00 [只看该作者]
