主题：自动日期编号生成

要求：
一个[编号]列。以[日期]列为基础建立[编号]列。以前在易表里[编号]列用的刷新公式是："0"+text(number(format([日期],"yymmdd00"))+CountFor(GridName,"日期","=",[日期],1,Row))，现在用FoxTable怎么做？

示例： 

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

点击浏览该文件:管理项目9_0902.zip

Foxtable本身已经有编号列“_Identify”，每增加一行递增1，所以代码原理很简单:

'如果发生变化的是日期列，而且已经输入日期
If e.DataCol.Name = "日期" And e.Datarow.IsNull("日期")  = False Then
    Dim dt As Date = e.DataRow("日期") '获得输入的日期
    '计算编号
    e.Datarow("编号") =  Format(dt,"yyMMdd") & Format(e.DataTable.Compute("Count(日期)", "[日期] = #" & dt & "# And [_identify] < " & e.DataRow("_Identify")) + 1,"000")
End If

作为数据管理来说，这样的编码生成方式不好，最好就是用_identify，或手工输入。