msgbox(s)

做例子发上来看看。

如果去掉下面的代码好像不会执行多次。是不是遍历时，如果有作废发票号码，它又不等于文本框中的值，按照代码就执行两次。

Dim Result As DialogResult
Result = MessageBox.Show("您确定要重新打印发票吗?", "提示", MessageBoxButtons.YesNo,    

 MessageBoxIcon.Question)
 If Result = DialogResult.Yes Then

Dim r As Row = Tables("收费登记表").Current
If  r("打印次数") < 1 Then
    r.Save()
    MessageBox.Show("请选择""打印发票!""","提示")
    Return
Else
    Dim str As String = Tables("收费登记表").current("作废发票号码")
    Dim fphm As WinForm.TextBox = e.Form.Controls("TextBox3")
   
    If str.contains(fphm.Value) Then
        MessageBox.Show("该发票已经作废!","提示")
        Return
    Else
        Dim Result As DialogResult
        Result = MessageBox.Show("确定打印发票吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
           
            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.Preview
            r("打印次数") = r("打印次数") + 1
           
            r.Save()
            e.Form.Close()
        End If
    End If
End If