以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  messagebox中不定式短句问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116074)
--  作者：13861676007
--  发布时间：2018/3/19 15:44:00
--  messagebox中不定式短句问题
请教：    
 Result = MessageBox.Show("\'" & bh & " 编号重复,是否返回? 注:选择否,有重复不再提示,并将重复编号内容更新\'", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

这句话是错的。怎么改呀?
--  作者：有点甜
--  发布时间：2018/3/19 15:55:00
--  
Dim bh As String = "123"
Dim Result As DialogResult= MessageBox.Show(bh & " 编号重复,是否返回? 注:选择否,有重复不再提示,并将重复编号内容更新", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = DialogResult.Yes Then
    msgbox(1)
ElseIf result = DialogResult.No Then
    msgbox(2)
End If
--  作者：13861676007
--  发布时间：2018/3/19 15:56:00
--  
谢谢!
--  作者：13861676007
--  发布时间：2018/3/19 16:00:00
--  
改过了，这句代码还是不对，请老师看看
Dim Book As New XLS.Book("d:\\淮钢核算\\导入表\\淮钢开票收入导入表.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim bh As String
For n As Integer = 1 To Sheet.Rows.Count -1
    bh = sheet(n,0).text
    Dim dr As DataRow = DataTables("淮钢开票收入导入表").Find("编号 = \'" & bh & "\'")
    If dr IsNot Nothing Then
        Dim Result As DialogResult
        Result = MessageBox.Show(bh & "编号重复,是否返回? 注:选择否,有重复不再提示,并将重复编号内容更新", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            Return
        End If
    End If
Next
--  作者：13861676007
--  发布时间：2018/3/19 16:07:00
--  
错误的提示！
--  作者：有点甜
--  发布时间：2018/3/19 16:11:00
--  

红色位置

 

Dim Result As DialogResult= MessageBox.Show(bh & " 编号重复,是否返回? 注:选择否,有重复不再提示,并将重复编号内容更新", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
--  作者：13861676007
--  发布时间：2018/3/19 16:16:00
--  
对了，谢谢老师。