关于表达式的请教 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

强行用表达式是自寻烦恼,还是用代码吧:

If e.DataCol.Name = "日期" Then

If e.DataRow.IsNull("日期") Then

e.DataRow("编号") = Nothing

Else

Dim bh As String = Format(e.DataRow("日期"),"yyyyMMdd")

If e.DataRow("编号").StartsWith(bh) = False

Dim max As String

Dim idx As Integer

max = e.DataTable.Compute("Max(编号)","日期 = #" & e.DataRow("日期") & "#")

If max > "" Then '如果存在最大编号

idx = CInt(max.Substring(8,3)) + 1

Else

idx = 1

End If

e.DataRow("编号") = bh & Format(idx,"000")

End If

主题：关于表达式的请教