主题：老大,帮我看看我的发送邮件的代码有什么问题?

我再研究一下.

DataTables("邮件系统").Save
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT * From {部门人员} Where [人员名称] = '" & _UserName & "'"
dt = cmd.ExecuteReader
If dt.DataRows.Count > 0 Then
    Dim m As New MailSender
    m.Host = dt.DataRows(0)("SMTP设置_服务器")
    m.Account = dt.DataRows(0)("邮件帐号")
    m.Password = dt.DataRows(0)("邮件密码")
    m.From = dt.DataRows(0)("Email")
    Dim r As Row = Tables("邮件系统").Current
    m.Title =r("主题")
    m.Content = r("内容")
    Dim Values() As String
    Values = r("收件人").split(",")
    For Index As Integer = 0 To Values.Length - 1
        MessageBox.Show(Values(Index))
        m.AddReceiver(Values(Index))
    Next
    m.SendAsync()
End If
MessageBox.Show("邮件发送成功")

 这段代码怎么看都没有问题,但是

 Dim Values() As String
Values = r("收件人").split(",")
For Index As Integer = 0 To Values.Length - 1
MessageBox.Show(Values(Index))
m.AddReceiver(Values(Index))
Next

  这个不起作用,对话框没有出来.

 但是我用按钮单独做了一个测试是可以对话框的.

我改这样也不行,问题在哪儿呢?

DataTables("邮件系统").Save
Dim r As Row = Tables("邮件系统").Current
Dim i As Integer
If r("收件人") = "" Then
    MessageBox.Show("收件人信息不完整, 请重新设置! ","信息提示",MessageBoxButtons.OK)
    Return
Else
    Dim cmd As New SQLCommand
    Dim dt As DataTable
    cmd.C
    cmd.CommandText = "SELECT * From {部门人员} Where [人员名称] = '" & _UserName & "'"
    dt = cmd.ExecuteReader
    If dt.DataRows.Count > 0 Then
        Dim m As New MailSender
        m.Host = dt.DataRows(0)("SMTP设置_服务器")
        m.Account = dt.DataRows(0)("邮件帐号")
        m.Password = dt.DataRows(0)("邮件密码")
        m.From = dt.DataRows(0)("Email")
        Dim Values() As String
        Values = r("收件人").split(",")
        For Index As Integer = 0 To Values.Length - 1
            If Values(Index).Length = 0 Then
                m.To = r("收件人")
            Else
                m.AddReceiver(Values(Index))
            End If
        Next
        m.Title =r("主题")
        m.Content = r("内容")
        m.SendAsync()
        MessageBox.Show("邮件发送完毕! ","信息提示!",MessageBoxButtons.OK)
    End If
End If