主题：[求助]编号问题

 Datacolchanged事件，代码

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "GB103"
        Dim max1 As String = e.DataTable.SQLCompute("max(GB103)")
        dr("GB000") = max1 + 1
        dr.save
        Dim max2 As String = e.DataTable.SQLCompute("max(GB000)")
       
        dr("GS901") = iif(max2 > max1, max2, max1) + 1
       
        If dr("GB016").startsWith("2") Then
            dr("GS101") = max1 + 1
        End If
        dr.save
    Case "GB016"
        If dr("GB016").startsWith("2") Then
            Dim max1 As String = e.DataTable.SQLCompute("max(GB103)")
            dr("GS101") = max1 + 1
        End If
        dr.save
End Select