主题：按顺序增加编号，

Dim max As String = e.DataTable.compute("max(第一列)")

Dim idx As Integer

If max > "" Then '如果存在最大编号

    idx = CInt(max.Substring(4)) + 1 '获得最大编号的后三位顺序号,并加1

Else

    idx = 1 '否则顺序号等于1

End If

e.DataRow("第一列") ="GYS6" & Format(idx,"000000")