以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于自动编号的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56232)
--  作者：ahtlzhujun
--  发布时间：2014/9/1 15:16:00
--  [求助]关于自动编号的问题
求助：  表：客户档案与地区分类
               客户档案字段有：客户编号、客户名称、所属地区
               地区分类字段有：地区分类编码、地区名称
               其中两个表中 所属地区=地区名称
          问：1、想让客户编号为：“1” + “地区分类编码” + 4位流水号；
               2、表“客户档案”中客户编号不用手工录入，在窗口保存时自动生成；
               3、表“客户档案”中的三个字段不能为空，怎么设置。
         麻烦哪位老师帮忙解决一下，谢谢！
--  作者：Bin
--  发布时间：2014/9/1 15:17:00
--  
思路都在帮助中
--  作者：Bin
--  发布时间：2014/9/1 15:18:00
--  
1.http://www.foxtable.com/help/topics/2403.htm
--  作者：有点甜
--  发布时间：2014/9/1 15:18:00
--  

 写这么多，你还不如做一个例子发上来

 

 http://www.foxtable.com/help/topics/2403.htm

 
--  作者：Bin
--  发布时间：2014/9/1 15:19:00
--  
2.同上
--  作者：ahtlzhujun
--  发布时间：2014/9/2 9:57:00
--  
Select e.DataCol.Name
    Case "所属地区"
        If e.DataRow.IsNull("所属地区") Then
            e.DataRow("客户编码") = Nothing
        Else
            Dim dq As String = e.DataRow("所属地区")
            Dim dqbm As String
            Dim I As String
            I = 1
            dqbm = DataTables("地区").GetValues("地区编码","地区名称 = dq")
            If e.DataRow("客户编号").SubString(1,2) <> dqbm \'如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                max = e.DataTable.Compute("Max(客户编码)") \'取得该类别的最大编号
                If max > "" Then \'如果存在最大编号
                    idx = CInt(max.Substring(3,4)) + 1 \'获得最大编号的后四位顺序号,并加1
                Else
                    idx = 1 \'否则顺序号等于1
                End If
              e.DataRow("客户编码") = I & dqbm & Format(idx,"0000")
            End If
        End If
麻烦老师看一下这哪地方出了问题，运行时提示“调用的目标发生了异常”，谢谢！
--  作者：ahtlzhujun
--  发布时间：2014/9/2 9:58:00
--  
地区编码都是2位
--  作者：有点甜
--  发布时间：2014/9/2 10:11:00
--  

呃.....

 

Select e.DataCol.Name
    Case "所属地区"
        If e.DataRow.IsNull("所属地区") Then
            e.DataRow("客户编码") = Nothing
        Else
            Dim dq As String = e.DataRow("所属地区")
            Dim dqbm As String
            Dim I As String
            I = 1
            Dim fdr As DataRow = DataTables("地区").Find("地区名称 = \'" & dq & "\'")
            If fdr IsNot Nothing Then
                dqbm = fdr("地区编码")
                Dim max As String
                Dim idx As Integer
                max = e.DataTable.Compute("Max(客户编码)", "客户编码 like \'" & i & dqbm & "%\' and _Identify <> " & e.DataRow("_Identify")) \'取得该类别的最大编号
                If max > "" Then \'如果存在最大编号
                    idx = CInt(max.Substring((i & dqbm).length,4)) + 1 \'获得最大编号的后四位顺序号,并加1
                Else
                    idx = 1 \'否则顺序号等于1
                End If
                e.DataRow("客户编码") = I & dqbm & Format(idx,"0000")
            End If
        End If
End Select
--  作者：ahtlzhujun
--  发布时间：2014/9/2 10:55:00
--  
谢谢