请教：如何在子窗体中新增记录时自动产生序号

jackysu78

请高手帮忙！谢谢！
问题：如何在子窗体中新增记录时自动产生序号？

jackysu78

咋就没人赐教呢，版主？

jackysu78

谢谢你的回复！好象没有看到适合我的意思的。

jackysu78

这样说吧，我现在生成序号的处理方法就是用dcount()更新生成的，如下：

1. UPDATE 业务联系单detail SET 业务联系单detail.receive_no = DCount("bill_detail_id","业务联系单detail","bill_id=" & [bill_id] & " and bill_detail_id<=" & [bill_detail_id])
   
2. WHERE (((业务联系单detail.receive_no) Is Null) AND ((业务联系单detail.customer_short) Is Not Null));

复制代码

但是，这不是我的原意，我的意思是在如上图子窗体中新增一条记录，即自动产生一个序号，在事件中实现，而不是通过更新查询来处理。
再次表示感谢！
烦请下载本人上传的示例，然后在子窗体中随便增加一条记录，当前是没有事件，现在的No值1、2是手工输入的。

jackysu78

还补充说一下：增加一个字段是为了提高效率，如果用dcount()去生成，打开窗体的速度好慢！谢谢！

jackysu78

真是不好意思，经测试好象还是不行，可否帮忙在示例中处理一下，感激！

jackysu78

谢谢！

jackysu78

谢谢版主！
以上两种方法均可达成，因楼上版主上传的文件好象无法解压，所以再次说明一下，有两个不同意见供参考！
1、为了保证同一ID序号连续，故需增加dcount()的分组条件
2、事件换成No的进入，或者其他可编辑字段的更新后事件较好

1. Private Sub no_Enter()
   
2. 'Me.no.Value = Me.Form.CurrentRecord
   
3.     Dim a As Integer
   
4.     a = DCount("*", "表2", "id =" & [id] & "")
   
5.     If NewRecord Then
   
6.         Me.no = a + 1
   
7.     End If
   
8. End Sub

复制代码