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

审核通过和审核不通过列只要是打勾的行就不要显示出来。

在afteropenproject代码如下。可是效果不对啊。请问再怎么增加筛选条件？

Tables("需求主表").Filter = "审核通过 = False And  审核不通过 = False"
Tables("需求明细表").Sort = "需求编号 DESC"

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

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

怎么没内容啊。哈哈，忘加了？

以下是引用有点甜在2014-7-1 18:02:00的发言：
 

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

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

 

是没问题。但是奇怪了，我看你的代码和我的是一样的。你还在哪里做过设置？

Tables("需求主表").Filter = "审核通过 = False And 审核不通过 = False"
Tables("需求明细表").Sort = "需求编号 DESC"

Dim d As Date = Date.Today
Dim y As Integer = d.Year
Dim m As Integer = d.Month
Dim bh As String = Format(d,"yyyyMM") '生成编号的前6位,4位年,2位月.
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(内部编号)","内部编号 like '" & bh & "*'")
If max > "" Then '如果存在最大编号
    idx = CInt(max.Substring(bh.Length,2)) + 1 '获得最大编号的后三位顺序号,并加1
Else
    idx = 1 '否则顺序号等于1
End If
e.DataRow("内部编号") = bh & Format(idx,"00")

这是编号的代码。20140701，20140630,20150321之类的。

可否改为编号为0701_2014,0630_2014,0321_2014?代码如何改？

代码如下，列名你自己改一下

Dim d As Date = Date.Today
Dim m As String = Format(d,"MM")
Dim y As String = Format(d,"yyyy")

Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(第一列)","substring(第一列,1,2) = '" & m & "' and substring(第一列,5,5) = '-" & y & "'")
msgbox(max)
If max > "" Then '如果存在最大编号
    idx = CInt(max.Substring(m.Length,2)) + 1 '获得最大编号的后三位顺序号,并加1
Else
    idx = 1 '否则顺序号等于1
End If
e.DataRow("第一列") = m & Format(idx,"00") & "-" & y

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

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

：：：：

需求明细表。当编辑完某一行后，然后点击“第二步提交”后。那么这一行是不能被再次修改的。

 把这一行locked一下即可。

r.Locked = True