Select Case e.DataCol.Name
Case "车系","车牌号"
Dim s1,s2 ,s3 As String
Dim dr,dr1 As DataRow
Dim n,n1 As Integer
Dim dt As DataTable = e.DataTable
dr = e.DataRow
s1 = dr("车牌号")
If dr("车系") ="" OrElse s1 = "" Then
dr("编号") = Nothing
Else
dr1=DataTables("编码").Find("车系='" & dr("车系") & "'")
If dr1 IsNot Nothing Then
s2= dr1("编码") & right(s1,1) & "-"
s3= "编号 Like '" & s2 & "%'"
dr1 = dt.Find(s3)
If dt.DataRows.count =1 OrElse dr1 Is Nothing Then
dr("编号") = s2 & "1"
Else
For Each dr1 In dt.Select(s3)
n=dr1("编号").Substring(3)
n1=iif(n1<n,n,n1)
Next
For n = 1 To n1
If dt.Find("编号 = '" & s2 & n & "'") Is Nothing Then
dr("编号") = s2 & n
Exit For
Else
dr("编号") = s2 & n1+1
End If
Next
End If
End If
End If
End Select
加好友 
发短信
Post By：2011/8/16 20:58:00 [显示全部帖子]
