主题：[求助]for each

老师 ，下一段代码，如果文本框中有了新的fa piao号码、作废fa piao号码不为空时，那么着色的代码会执行两次或以上，如何只执行一次？搞糊涂了，请指点，谢谢。

msgbox(s)

 

做例子发上来看看。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目5.rar

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

 

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

 MessageBoxIcon.Question)
 If Result = DialogResult.Yes Then

这跟数据的业务逻辑有关，请提供可以测试的数据。

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

如果不是空的，双击行打开打印界面，在fa piao号码框中输入号码十位数，点击打印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")
   
    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

谢谢！系统中多处用到 contains ，怎么就没想到呢？哈哈哈哈哈。。。。不熟练。