快速开发平台—子窗体以主窗体的某个编号为前缀自动编号

时　间:2017-01-17 08:09:31
作　者:缪炜   ID：24010  城市：江阴
摘　要:在实际的应用中，往往会遇到子窗体上的编号要以主窗体的某个编号做为前缀编号，那如果放到快速开发平台中该如何来做。下面，我们以进销存系统中的采购订单为例，来做说明。
正　文:

1、 在frm采购订单_Edit 的加载事件里添加如图1代码：

Me.采购订单号 = GetAutoNumber("采购订单号")

                                              图1

2、 在frm采购订单_Edi保存事件里的代码改成如图2

rst![采购订单号] = Me.采购订单号

                                           图2  

3、 在frm采购订单_Edit_Detail

If DCount("*", "TMP_采购订单明细表") > 0 Then
    Me.采购订单明细编号 = Me.Parent!采购订单号 & "-" & Format(DCount("*", "TMP_采购订单明细表") + 1, "00")
Else
     Me.采购订单明细编号 = Me.Parent!采购订单号 & "-" & "01"
 End If

                                                图3

最终效果：

附   件:

点击下载此附件