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

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

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

 把这一行locked一下即可。

r.Locked = True

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

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

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

点查询时，用一个变量存储输入的最后一个查询字符串。

然后再afterLoad事件里，把这个变量的值，赋值给文本框

http://www.foxtable.com/help/topics/0325.htm