以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]子表序号问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127624)

--  作者:mirco
--  发布时间:2018/11/18 14:05:00
--  [求助]子表序号问题
各位大神,  订单表A中每一条订单对应订单明细表B,通过订单编号关联,我想每一条明细自动生成一个序号 1,2 3 ---,第2个订单的明细又自动从1开始,1,2,3,请帮助,谢谢
--  作者:mirco
--  发布时间:2018/11/18 20:28:00
--  
各位大神,本人菜鸟,请求帮助!
 
另有以下问题:也请帮助!谢谢!
  订单表A中每一条订单对应订单明细表B,通过订单编号关联,我想每一条明细自动生成一个序号 1,2 3 ---,第2个订单的明细又自动从1开始,1,2,3,
也就是新订单的明细序号总是从1开始!

--  作者:有点甜
--  发布时间:2018/11/18 21:33:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/2403.htm

 


--  作者:mirco
--  发布时间:2018/11/21 21:12:00
--  

老师,看了帮助文档,都是有前缀的,如有月份

max = e.DataTable.Compute("Max(编号)","日期 >= #" & fd & "# And 日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify"))   取得该月的最大编号

 

我要的是没有前,第一张订单的明细有3条,序号是1,2,3  第二张订单的明细有4条,序号是1,2,3 ,4,也就是新订单的明细序号总是从1开始

订单 订单内容 订单明细序号 明细内容
订单1 AAAA 1 AAAAAA
  BBB 2 AA
  CCC 3 ABC
订单2 AAAA 1 AABBBCCC
  DDDD 2 ABCDE
  EEEE 3 SSSS
  FFFF 4 QQQQQQ


--  作者:有点甜
--  发布时间:2018/11/21 21:39:00
--  

三、按类别编号

假定有下图所示的一个表,编号根据类别生成,前两位为类别,后三位为顺序号:

图片点击可在新窗口打开查看

要自动生成上面的编号,可以将DataColChanged事件代码设置为:

 

Select e.DataCol.Name
    Case
 "类别"
        
If e.DataRow.IsNull("类别") Then
            e.
DataRow("编号") = Nothing
        Else
            Dim
 lb As String = e.DataRow("类别")
            If
 e.DataRow("编号").StartsWith(lb) = False \'如果单据编号前缀不符
                
Dim max As String
                
Dim idx As Integer

                max = e.DataTable.Compute("Max(编号)","类别 = \'" & lb & "\' And [_Identify] <> " & e.DataRow("_Identify")) \'取得该类别的最大编号
                
If max > "" Then \'如果存在最大编号
                    idx = CInt(max.Substring(
2,3)) + 1 \'获得最大编号的后三位顺序号,并加1
                
Else
                    idx = 
1 \'否则顺序号等于1
                
End If
                e.
DataRow("编号") = lb & Format(idx,"000")
            End
 If
        End
 If
End
 
Select


--  作者:有点甜
--  发布时间:2018/11/21 21:40:00
--  

 

你在最后,把【类别】去掉赋值给编号,即可。