表的DataColChanged事件：
Select Case e.DataCol.Name
Case "打印"
If Forms("出入库打印窗口").Opened Then
Dim d As Date
If Date.TryParse(e.DataRow("出库日期"), d)
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
Forms("出入库打印窗口").Controls("出库编号").Text = bh & Format(fdr("次数") + 1, "000")
End If
End If
End Select
打印窗口的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
打印按钮的单击事件：
Dim fdr As DataRow = DataTables("出入库打印信息表").Find("日期 = #" & e.Form.Controls("出库日期").Text & "#")
fdr("次数") += 1
For Each r As Row In Tables("出入库明细表.出入库登记表")
r("出库编号") = e.Form.Controls("出库编号").Text
r("出库日期") = e.Form.Controls("出库日期").value
r("开piao人") = e.Form.Controls("开piao人").Text
Next
加好友 
发短信
Post By：2019/3/15 16:15:00 [只看该作者]
Post By：2019/3/15 16:22:00 [只看该作者]
此主题相关图片如下：i45gpi$tjfae3l`f@od3s.png