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

 请先把帮助文档(开发指南->Foxtable编程)看完，都是基础的问题。

我现在处于边学习，边开发的过程。这样在你们的协助下效率会高一点。还请帮忙。

点击是“否审核通过”打勾，然后发送“邮件通知”里面的mail地址。但是勾选了，发现没反应，请问哪里有问题。

代码是，需求主表----表属性-----datacolchanged

If e.DataCol.name="是否审核通过" Then
    If e.DataRow.IsNull("是否审核通过")=False 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.AddReceiver(r("邮件通知"))
        m.Title = "需求编号:" & r("需求编号") & "-----次需求已审核,请研发和测试尽快处理"
        m.C & r("需求编号") & "      期望交期:"  & r("期望交期")
        m.Send
        msgbox("mail需求已审核通知已发送完毕!")
        Select Case e.DataCol.Name
            Case "审核是否通过"
                Tables("需求主表").Filter = "审核是否通过 = False"
        End Select
    End If
End If

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

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

功能好像没实现啊，一样没反应。你可以在我的工程临时版本跟踪系统14.foxdb试一下。

代码

If e.DataCol.name="审核是否通过" Then
    If e.DataRow("审核是否通过")  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("邮件通知")
        m.Title = "需求编号:" & r("需求编号") & "-----次需求已审核,请研发和测试尽快处理"
        m.C o n tent = "需求编号:" & r("需求编号") & "      期望交期:"  & r("期望交期")
        m.Send
        msgbox("mail需求已审核通知已发送完毕!")
        Select Case e.DataCol.Name
            Case "审核是否通过"
                Tables("需求主表").Filter = "审核是否通过 = False"
        End Select
    End If
End If

我的错。把列名给弄错了。谢谢指点。