以下是引用Bin在2014-9-9 14:52:00的发言:
代码发出来
Dim r As Row = Tables("需求主表").Current
If e.DataCol.name="审核通过" Then
If e.DataRow("审核通过") Then
If r.IsNull("邮件通知") = True Then
MessageBox.show("请对邮件通知下拉列选择通知人员","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
e.DataRow("审核通过") = "false"
Else
If MessageBox.show("请核实已审核的需求","打勾前请确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question)=DialogResult.OK Then
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("需求编号") & "-----此需求已审核,请研发和测试尽快处理"
m.C & r("需求编号") & " 期望交期:" & r("期望交期")
m.Send
MessageBox.show("需求编号:" & r("需求编号") & "------>" & "此需求已审核通过并mail通知了相关研发测试人员!","博达软件管理系统")
Select Case e.DataCol.Name
Case "审核通过"
Tables("需求主表").Filter = "审核通过 = False And 审核不通过 = False"
End Select
For Each cdr As DataRow In r.DataRow.GetChildRows("需求明细表")
cdr("状态") = r("审核通过")
Next
If r.DataRow.GetChildRows("临时版本跟踪表").Count = 0 Then
Dim dr As DataRow = DataTables("临时版本跟踪表").AddNew()
dr("需求编号") = r("需求编号")
End If
Else
e.DataRow("审核通过") = False
End If
End If
End If
End If
DataTables.Save()