主题：[求助]子表序号问题

各位大神，  订单表A中每一条订单对应订单明细表B,通过订单编号关联，我想每一条明细自动生成一个序号 1，2 3 ---，第2个订单的明细又自动从1开始，1，2，3，请帮助，谢谢

参考

 

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

 

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

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

三、按类别编号

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

要自动生成上面的编号，可以将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

 

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