主题：[求助]for each

msgbox(s)

 

做例子发上来看看。

例子如何测试才会出现你的问题？不知道怎么触发啊。

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")
   
    If str.contains(fphm.Value) Then
        MessageBox.Show("该fa piao已经作废!","提示")
        Return
    Else
        Dim Result As DialogResult
        Result = MessageBox.Show("确定打印fa piao吗?", "提示", 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