若打印所选行的最上面一行的“出库日期”和“出库编号”不为空，则打印的编号都会被重置为当天的第一笔编号，如：yh190504001，
求，怎样做到，即使打印所选行的最上面一行的“出库日期”和“出库编号”不为空，也可以继续编号下去，而不是重置？
是以下这段打印按钮的代码编辑有误吗？
Dim d1 As Date = e.Form.Controls("出库日期").Text
Dim fdr1 As DataRow = DataTables("意和打印记录表").Find("日期 >= #" & d1.Date & "# and 日期 < #" & d1.Date.adddays(1) & "#")
fdr1("次数") += 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
r("送货司机") = e.Form.Controls("送货司机").Text
Next
'针式打印机的连进连出打印:
e.Form.Page.LeftMargin = 0 '设置左边距
e.Form.Page.RightMargin = 0 '设置右边距
e.Form.Page.TopMargin = 0 '设置上边距
e.Form.Page.BottomMargin = 0 '设置下边距
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.PageSetting.Width = 218 '纸张宽度为218毫米
doc.PageSetting.Height = 94 '纸张高度为94毫米
doc.AutoRotate = False '如果纸张的宽度超过高度,要加上这行代码
'添加打印内容
doc.Preview()
Dim fnt As New Font("黑体",9,FontStyle.Bold)
CurrentTable.Font = fnt
For Each dr1 As DataRow In DataTables("出库明细表").Select("[打印_意和] = true")
If dr1 Is Nothing Then Return
If dr1("出库已选_部分") = True Then
dr1("打印_意和") = False
dr1("状态_半开") = True
dr1("出库已选_部分") = False
ElseIf dr1("出库已选_全部") = True Then
dr1("打印_意和") = False
dr1("状态_全开") = True
dr1("状态_半开") = False
dr1("出库已选_全部") = False
End If
Next
Forms("意和打印窗口").Close()
Dim fnt1 As New Font("宋体",9,FontStyle.Regular)
CurrentTable.Font = fnt1
加好友 
发短信
Post By：2019/5/4 16:39:00 [只看该作者]
