老师 ,下一段代码,如果文本框中有了新的fa piao号码、作废fa piao号码不为空时,那么着色的代码会执行两次或以上,如何只执行一次?搞糊涂了,请指点,谢谢。
Dim r As Row = Tables("收费登记表").Current
If r("打印次数") < 1 Then
r.Save()
MessageBox.Show("请选择""打印fa piao!""","提示")
Return
Else
Dim str As String = Tables("收费登记表").current("作废fa piao号码")
Dim fphm As WinForm.TextBox = e.Form.Controls("TextBox3")
For Each s As String In str.Split(";")
If s Like "*" & fphm.Value & "*" Then
MessageBox.Show("该fa piao已经作废!","提示")
Return
Else
Dim cst As WinForm.Label = e.Form.Controls("Label46")
r("计财收费") = User.Name
r("收费时间") = Date.Now
cst.Text = User.Name & Date.Now
r("已付款") = True
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Print()
r("打印次数") = r("打印次数") + 1
r.Save()
e.Form.Close()
End If
Next
End If