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

 回复48楼，提交按钮代码；至于隐藏的问题，其实并没有删除啊，你取消筛选就能看到所有的数据了。

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("邮件通知"))
If r.IsNull("技术支持邮箱") = False Then
    m.AddReceiver(r("技术支持邮箱"))
End If
m.Title = "需求编号:" & r("需求编号") & "-----新需求已提交,请售后管理员审核"
m.C & r("需求编号") & "      客户:"  & r("客户") & "      博达机型:" & r("博达机型")
m.Send
msgbox("mail需求通知已发送完毕!")

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

代码

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

 回复62楼，DataRowAdded事件加入代码

Tables("需求明细表").Sort = "需求编号 DESC"

项目一打开的时候你有没有设置 Tables("需求明细表").Sort = "需求编号 DESC" ？

只有设置了一次以后，才有你所说的默认倒序排列啊。

beforesort和aftersort事件，是表排序以后才会触发的，默认不会触发。

 你在afterOpenProject加入代码

Tables("需求明细表").Sort = "需求编号 DESC"