临时版本跟踪表有一列“状态”,有3个下拉选项,分别为:Published,Disabled,Confirming.
当状态选择了Published。执行如下代码,就是发送邮件。可是选择了Publish,这一行没反应,请问哪里有问题?
If e.DataCol.name="状态" Then
If e.DataRow("状态 = Published") Then
If MessageBox.show("请确认此需求的状态要变更为已发布?","请确 认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question)=DialogResult.OK Then
Dim r As Row = Tables("临时版本跟踪表").Current
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"
m.To = r("邮件通知")
If r.IsNull("研发邮箱") = False Then
m.AddReceiver(r("研发邮箱"))
End If
If r.IsNull("技术支持邮箱") = False Then
m.AddReceiver(r("技术支持邮箱"))
End If
m.Title = "需求编号:" & r("需求编号") &"------>临时版本编号:" & r("临时版本编号") & r("软件环境") & "已发布"
m.C & r("需求编号") &"------>临时版本编号:" & r("临时版本编号") & r("软件环境") & "已发布"
m.Send
msgbox("临时版本编号:" & r("临时版本编号") & r("软件环境") & "已发布通知mail已发送完毕!")
End If
End If
End If