DataTables.save()
If e.Sender.Checked Then
    Dim r As Row = Tables("需求明细表").Current
    If r IsNot Nothing Then
        If MessageBox.show("确认此版本现场测试通过?","博达软件管理系统",MessageBoxButtons.OKCancel,MessageBoxIcon.Question)=DialogResult.OK Then
            SystemReady =  False
            DataTables("临时版本跟踪表").ReplaceFor("状态", "Confirmed", "需求编号 = \'" & r("需求编号") & "\'")
            DataTables("临时版本跟踪表").SQLReplaceFor("状态", "Confirmed", "需求编号 = \'" & r("需求编号") & "\'")
            DataTables("临时版本跟踪表").ReplaceFor("已确认可以发布", "True", "需求编号 = \'" & r("需求编号") & "\'")
            DataTables("临时版本跟踪表").SQLReplaceFor("已确认可以发布", "True", "需求编号 = \'" & r("需求编号") & "\'")
            Dim dr As  DataRow
            Dim dl As  DataRow
            dr = DataTables("临时版本跟踪表").SQLFind("需求编号 = \'" & r("需求编号") & "\'")
            If dr IsNot Nothing Then
                If dr.IsNull("Log") = False Then
                    dr("log") = User.Name & " " & Date.Now & " " & dr("状态") & vbcrlf & dr("log")
                Else
                    dr("log") = User.Name & " " & Date.Now & " " & dr("状态")
                End If
                dr.save
                dl = DataTables("临时版本跟踪表").SQLFind("[客户] = \'" & dr("客户") & "\' And [博达机型] = \'" & dr("博达机型") & "\' And [状态] = \'Published\'")
                If dl IsNot Nothing Then
                    Dim n As New MailSender
                    n.Host = "mail.bdcom.com.cn"
                    n.Account = "version@bdcom.com.cn"
                    n.Password = "version"
                    n.From = "version@bdcom.com.cn"
                    n.To = "vc@bdcom.com.cn"
                    n.Title = "博达软件管理系统= = = = = = =" & "需求编号:" & dl("需求编号") &"<= = =>临时版本编号:" & dl("临时版本编号") & "======" & "请把此版本状态由Published改为Disabled,并拉入temp目录"
                    n.C & dl("需求编号") &"<= = =>临时版本编号:" & dl("临时版本编号") & "======" & "请把此版本状态由Published改为Disabled,并拉入temp目录"  & vbcrlf & "需要拉入temp目录下的版本路径:" & "192.168.1.35\\route_bin\\bdcom"  & dl("发布目录").Replace("[", "").Replace("]", "").Replace("/", "\\")
                    n.SendAsync
                End If               
            End If
            SystemReady = True
            Forms("发送mail").open
            Dim m As New MailSender
            m.Host = "mail.bdcom.com.cn"
            m.Account = "version@bdcom.com.cn"
            m.Password = "version"
            m.From = "version@bdcom.com.cn"
            If r.IsNull("邮件通知") = False Then
                m.AddReceiver(r("邮件通知").Replace(vbcrlf, ",").Replace(chr(13), ",").Replace(chr(10), ","))
            End If
            If r.IsNull("研发邮箱") = False Then
                m.AddReceiver(r("研发邮箱").Replace(vbcrlf, ",").Replace(chr(13), ",").Replace(chr(10), ","))
            End If
            If r.IsNull("技术支持邮箱") = False Then
                m.AddReceiver(r("技术支持邮箱").Replace(vbcrlf, ",").Replace(chr(13), ",").Replace(chr(10), ","))
            End If
            If r.IsNull("退回通知") = False Then
                m.AddReceiver(r("退回通知").Replace(vbcrlf, ",").Replace(chr(13), ",").Replace(chr(10), ","))
            End If
            m.Title = "博达软件管理系统= = = = = = =" & "需求编号:" & r("需求编号") &"<= = =>临时版本编号:" & r("临时版本编号") & "======" & "现场确认已通过,请发布版本"
            m.C & r("需求编号") &"<= = =>临时版本编号:" & r("临时版本编号") & "======" & "现场确认已通过,请发布版本"  & vbcrlf & "现场已确认好的版本路径:" & "192.168.1.35\\route_bin\\bdcom"  & r("发布目录").Replace("[", "").Replace("]", "").Replace("/", "\\")
            m.Send
            Forms("发送mail").close
            r("状态") = "Confirmed"
            r("状态直白") = "现场已确认通过,等待版本发布"
            MessageBox.show("需求编号:" & r("需求编号") &"<= = =>临时版本编号:" & r("临时版本编号")  & "此版本现场确认通过,测试部将发布!","博达软件管理系统")
        Else
            e.Sender.Checked = False
        End If
    End If
End If
DataTables.save()