主题：提示框对应提示数据问题

改成

 

Result = MessageBox.Show("此户主已经存在!其协议书编号为:" & dr("编号") & ",是否确认添加?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If e.DataCol.Name = "户主姓名" Then
    Dim str = e.DataTable.SQLGetComboListString("编号", "户主姓名 = '" & e.NewValue & "'")
    If str > "" Then
        Dim Result As DialogResult
        Result = MessageBox.Show("此户主已经存在!其协议书编号为:" & str.replace("|", ",") & ",是否确认添加?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            e.Cancel = False
        Else
            e.Cancel = True
        End If
    End If
End If

Dim str = e.DataTable.SQLGetComboListString("编号", "户主姓名 = '" & e.NewValue & "' and [乡镇] = '" & User.Name & "'")