主题：[求助]我需要做一个输入mail地址，然后点击后面 按钮能自动发送mail内容。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:临时版本跟踪系统17.rar

临时版本跟踪表有一列“状态”，有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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:临时版本跟踪系统17.rar

我希望在临时版本跟踪表。

“状态”列的值选择为Published时，此行隐藏。

“状态”列的值选择为Disabled时，此行隐藏。

只显示“状态”列的值Comfirming的行。

当打开工程的时候也只是看到“状态”列的值Comfirming的行，其他行隐藏。

请看看我的代码哪里有问题。谢谢。

回复83，你可不可以进步？

Tables("临时版本跟踪表").Filter = "状态 = 'Comfirming' or 状态 is null"

代码写到 AfterOpenProject，以及 Datacolchanged 事件。

我都写了。你看一下我的工程。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:临时版本跟踪系统17.rar

另外需求主表勾选了审核通过，为什么最后还会出现一个对话框，显示内部编号呢。我没看到代码有这个对话框啊。

以下是引用有点甜在2014-7-3 17:40:00的发言：
 

下载信息  [文件大小：77.4 KB  下载次数：0]

点击浏览该文件:临时版本跟踪系统17.rar

缺省打开工程还是全部都显示出来了。只有当再次对状态选择Published或者Disabled才会只显示Comfirmig的行。

另外需求主表，对审核通过打勾，为什么最后还会出现一个内部编号的一个对话框，关键是提示的内部编号是上一个，并不是新增的内部编号。