主题：既要次日从零开始算，又不想发布后更新？

 打印窗口的AfterLoad事件：
Dim d As Date
If Tables("出入库明细表.出入库登记表").Rows.Count <> 0 AndAlso  Date.TryParse(Tables("出入库明细表.出入库登记表").Current("出库日期"), d) Then
    Dim bh As String = "YH" & Format(d, "yyyyMMdd")
    Dim max As String
    Dim idx As Integer
    Dim fdr As DataRow = DataTables("出入库打印信息表").Find("日期 = #" & d & "#")
    If fdr Is Nothing Then
        fdr = DataTables("出入库打印信息表").AddNew
        fdr("日期") = d
        fdr("次数") = 0
    End If
    e.Form.Controls("出库编号").Text = bh & Format(fdr("次数") + 1, "000")
End If