项目如下

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:内控系统1.rar

目前我通过事件编程把闲置的编号存放在 删除备份表里 

引用狐狸爸爸的一段代码

For Each v As String In DataTables("删除备份").GetUniqueValues("", "编号")
    If DataTables("表A").Find("编号 = \'" & v & "\'") Is Nothing Then
        e.DataRow("编号") = v
        Exit For
    End If
Next

目前还有2个小问题没解决

第一个是 编号与车系之间有一定关系    瑞风 编号是  A开头   ； 瑞鹰是 Y开头   ；同悦是 T开头 ；宾悦是 B开头

           项目目前只是实现了增加一行 会在客户档案表 编号列自动引用 删除备份 的编号列的闲置编号

第二个是 编号与车牌号之间的关系
           编号 A0-3   苏K-S6530 就代表车牌号尾数为0的 第三个瑞风建档客户
           编号 A1-3   苏K-L5661 就代表车牌号尾数为1的 第三个瑞风建档客户

           编号 Y0-1   苏K-33360 就代表车牌号尾数为0的 第一个瑞鹰建档客户
           编号 Y1-1   苏K-35051 就代表车牌号尾数为1的 第一个瑞鹰建档客户

由于我想从输入习惯上严格控制数据的精确性 

所以我最终的目的是  打个比方

需要录入一个新客户 车牌号是 苏K-3R281的瑞风车 车型号是HC6500A3C7BE3；

1.用加载树选择瑞风 然后选择 HC6500A3C7BE3  录入；

2.输入车牌号苏K-3R281  此时 客户档案的编号列自动会先匹配 删除备份里 A1开头的闲置号码

         如果有就自动启用并显示在客户档案表 编号里 

         如果没有该号码 就自动判别 当前客户档案里A1开头最后一位建档客户 例如：A1-101是当前A1开头的最后一位建档客户，那新号码就是A1-102 并显示在编号里

由于编号蛮复杂的 搞得现在不知道 从哪里下手~

或者提供其它思路也可以~

求助中。。。

很好 很强大 我去研究下

发现有几个问题！

1.能否不用A0-000这个格式  而是用A0-1,A0-12,A0-123这种格式呢？

 也就是说  n1=Right(DataTables("客户档案").Compute("Max(编号)","编号 Like \'" & s2 & "*\'"),3)  这段代码

 换成 取S2 右边的所有值

如果可以的话  我把原来的代码

 For n  = 1 To n1
            If DataTables("客户档案").Find("编号 = \'" & s2 & format(n,"000") & "\'") Is Nothing Then
            dr("编号") = s2 & format(n,"000")
               Exit For
          Else
             dr("编号") = s2 & format(n1+1,"000")
          End If
 Next

改成

搞好了  用了 substring函数

整个代码如下  帮忙查看下 还有什么问题？

Select Case e.DataCol.Name
    Case "车系","车牌号"
        Dim s1,s2  As String
        Dim dr,dr1 As  DataRow
        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) & "-"
                dr1 =  DataTables("客户档案").Find("编号 Like \'" & s2 & "*\'" )
                If DataTables("客户档案").DataRows.count =1  OrElse  dr1 Is Nothing Then
                    dr("编号") = s2 & "1"
                Else
                    Dim n,n1 As Integer
                    n1=dr("编号").SubString(3)
                   
                    For n  = 1 To n1
                        If DataTables("客户档案").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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:内控系统1.rar

恩  我研究下你的 看看~