不能循环判断

Question

 Private Sub FillTB(ByVal s As String, ByVal tb As Object)
        Dim db As New DbManagerSQL
        Dim sInnerHtml As String
        Dim stmp As String
        Dim i As Integer
        Dim ds As New DataSet
        Dim stmp2 As String
        stmp2 = Response.Cookies("UserID").Value
        ds = db.Query(s)
        sInnerHtml = "CL_ApplyNo, CL_DeptName, CL_ApplyName,CL_Trouble,appdate, CL_AcceptID, CL_ReAppDate"
        Dim arrcol() As String
        arrcol = Split(sInnerHtml, ",")
        Dim dr As DataRow        Dim tr As HtmlTableRow
        Dim td(7) As HtmlTableCell        For Each dr In ds.Tables(0).Rows            For i = 0 To arrcol.Length - 1
                td(i) = New HtmlTableCell()
                stmp = Trim(dr.Item(Trim(arrcol(i))).ToString & "")
                Select Case i
                    Case 4, 6
                        td(i).InnerHtml = IIf(stmp = "", " ", Right(stmp, 11))
                    Case Else
                        td(i).InnerHtml = IIf(stmp = "", " ", stmp)
                End Select
            Next
            td(7) = New HtmlTableCell()
            If (Trim(dr.Item("CL_CreateID").ToString & "").ToLower = stmp2.ToLower Or Trim(dr.Item("CL_ApplyID").ToString & "").ToLower = stmp2.ToLower) _
                            And Trim(dr.Item("CL_Director").ToString & "").Length = 0 Then                If Trim(dr.Item("CL_AcceptID").ToString & "") = "" Then
                    stmp = "<img alt="""" src=""Images/DELETE1.GIF"" id=""d" & Trim(dr.Item("CL_ApplyNo").ToString & "") & """ onclick=""return Delete_onclick(this)"" title=""删除此单！"" />"
                Else
                    stmp = "<img alt="""" src=""Images/conf.gif"" id=""c" & Trim(dr.Item("CL_ApplyNo").ToString & "") & """ onclick=""return confirm_onclick(this)"" title=""请确认！""  />"
                End If
                td(7).InnerHtml = stmp
            Else
                td(7).InnerHtml = "&nbsp;"
            End If            tr = New HtmlTableRow
            'dr.Item("CurrState").ToString
            'tr.Attributes.Add("style", "font-size:8pt")
            If Trim(dr.Item("CL_AcceptID").ToString & "") = "" Then
                tr.Attributes.Add("style", "background-color:#ff9999")
            ElseIf Trim(dr.Item("CL_UserChk").ToString & "") = "" Then
                tr.Attributes.Add("style", "background-color:#ccffcc")
            ElseIf Trim(dr.Item("CL_Director").ToString & "") = "" Then
                tr.Attributes.Add("style", "background-color:#99ccff")
            End If            tr.Attributes.Add("onclick", "selectRow(this)")
            tr.Attributes.Add("ondblclick", "javascript:view_onclick(this)")            For i = 0 To td.Length - 1
                tr.Cells.Add(td(i))
            Next
            tb.Rows.Add(tr)
        Next
        ds = Nothing  
    End Sub
    Protected Sub sendmail_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles sendmail.Click        Dim i As Integer
        Dim dr As DataRow                 '需完善的代码
        For i = 0 To tb_Main.Rows.Count - 1        '我想在这加个循环,对表格进行逐行判断，
            If Trim(dr.Item("CL_UserChk").ToString & "") = "" Then    '如果Trim(dr.Item("CL_UserChk").ToString & "") = "" ,就发送邮件给"CL_UserChk"@163.com
                Dim smtp As New System.Net.Mail.SmtpClient("smtp.163.com", 25)    '但代码好象有问题。请问这个要循环判断要怎么写？
                smtp.Credentials = New System.Net.NetworkCredential("1314", "123456")
                Dim mail As New System.Net.Mail.MailMessage()
                mail.Subject = "测试"
                mail.SubjectEncoding = System.Text.Encoding.GetEncoding("GB2312")
                mail.BodyEncoding = System.Text.Encoding.GetEncoding("GB2312")
                mail.From = New System.Net.Mail.MailAddress("[email protected]")
                mail.Priority = System.Net.Mail.MailPriority.Normal
                mail.IsBodyHtml = True
                mail.Body = "测试邮件"
                mail.To.Add("[email protected]")                Try                    smtp.Send(mail)
                    Response.Write("<script> alter('发送成功!');</script>")                Catch                    Response.Write("<script> alter('发送失败!');</script>")                Finally                    mail.Dispose()
                End Try
            Else
                GoTo t1
            End If
t1:     Next
    End Sub

Answer 1

Private Sub FillTB(ByVal s As String, ByVal tb As Object)
        Dim db As New DbManagerSQL
        Dim sInnerHtml As String
        Dim stmp As String
        Dim i As Integer
        Dim ds As New DataSet
        Dim stmp2 As String
        stmp2 = Response.Cookies("UserID").Value
        ds = db.Query(s)
        sInnerHtml = "CL_ApplyNo, CL_DeptName, CL_ApplyName,CL_Trouble,appdate, CL_AcceptID, CL_ReAppDate"
        Dim arrcol() As String
        arrcol = Split(sInnerHtml, ",")
        Dim dr As DataRow        Dim tr As HtmlTableRow
        Dim td(7) As HtmlTableCell        For Each dr In ds.Tables(0).Rows            For i = 0 To arrcol.Length - 1
                td(i) = New HtmlTableCell()
                stmp = Trim(dr.Item(Trim(arrcol(i))).ToString & "")
                Select Case i
                    Case 4, 6
                        td(i).InnerHtml = IIf(stmp = "", "&nbsp;", Right(stmp, 11))
                    Case Else
                        td(i).InnerHtml = IIf(stmp = "", "&nbsp;", stmp)
                End Select
            Next
            td(7) = New HtmlTableCell()
            If (Trim(dr.Item("CL_CreateID").ToString & "").ToLower = stmp2.ToLower Or Trim(dr.Item("CL_ApplyID").ToString & "").ToLower = stmp2.ToLower) _
                            And Trim(dr.Item("CL_Director").ToString & "").Length = 0 Then                If Trim(dr.Item("CL_AcceptID").ToString & "") = "" Then
                    stmp = "<img alt="""" src=""Images/DELETE1.GIF"" id=""d" & Trim(dr.Item("CL_ApplyNo").ToString & "") & """ onclick=""return Delete_onclick(this)"" title=""删除此单！"" />"
                Else
                    stmp = "<img alt="""" src=""Images/conf.gif"" id=""c" & Trim(dr.Item("CL_ApplyNo").ToString & "") & """ onclick=""return confirm_onclick(this)"" title=""请确认！""  />"
                End If
                td(7).InnerHtml = stmp
            Else
                td(7).InnerHtml = "&nbsp;"
            End If            tr = New HtmlTableRow
            'dr.Item("CurrState").ToString
            'tr.Attributes.Add("style", "font-size:8pt")
            If Trim(dr.Item("CL_AcceptID").ToString & "") = "" Then
                tr.Attributes.Add("style", "background-color:#ff9999")
            ElseIf Trim(dr.Item("CL_UserChk").ToString & "") = "" Then
                tr.Attributes.Add("style", "background-color:#ccffcc")
            ElseIf Trim(dr.Item("CL_Director").ToString & "") = "" Then
                tr.Attributes.Add("style", "background-color:#99ccff")
            End If            tr.Attributes.Add("onclick", "selectRow(this)")
            tr.Attributes.Add("ondblclick", "javascript:view_onclick(this)")            For i = 0 To td.Length - 1
                tr.Cells.Add(td(i))
            Next
            tb.Rows.Add(tr)
        Next
        ds = Nothing  
    End Sub
    Protected Sub sendmail_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles sendmail.Click        Dim i As Integer
        Dim dr As DataRow                 '需完善的代码
        For i = 0 To tb_Main.Rows.Count - 1        '我想在这加个循环,对表格进行逐行判断，
            If Trim(dr.Item("CL_UserChk").ToString & "") = "" Then    '如果Trim(dr.Item("CL_UserChk").ToString & "") = "" ,就发送邮件给"CL_UserChk"@163.com
                Dim smtp As New System.Net.Mail.SmtpClient("smtp.163.com", 25)    '但代码好象有问题。请问这个要循环判断要怎么写？
                smtp.Credentials = New System.Net.NetworkCredential("1314", "123456")
                Dim mail As New System.Net.Mail.MailMessage()
                mail.Subject = "测试"
                mail.SubjectEncoding = System.Text.Encoding.GetEncoding("GB2312")
                mail.BodyEncoding = System.Text.Encoding.GetEncoding("GB2312")
                mail.From = New System.Net.Mail.MailAddress("[email protected]")
                mail.Priority = System.Net.Mail.MailPriority.Normal
                mail.IsBodyHtml = True
                mail.Body = "测试邮件"
                mail.To.Add("[email protected]")                Try                    smtp.Send(mail)
                    Response.Write("<script> alter('发送成功!');</script>")                Catch                    Response.Write("<script> alter('发送失败!');</script>")                Finally                    mail.Dispose()
                End Try
            Else
                GoTo t1
            End If
t1:     Next
    End Sub

Answer 2

http://topic.csdn.net/u/20100624/08/20debb99-0d58-4734-b8bd-0c5895b46090.html?8125http://topic.csdn.net/u/20100624/08/20debb99-0d58-4734-b8bd-0c5895b46090.html?8125
这里有颜色.还请各位高手帮忙看看.