在多用户环境下实现不重复编号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下是引用baoxyang在2009-4-5 16:59:00的发言：

例如，我想实现PT+日期+流水号（4）？

If e.DataCol.Name = "列名" Then '要变化的列
    If e.Datarow.IsNull("列名")   Then '如果这个列是空值
        e.Datarow("编号列") = DBNull.Value '编号列为空
    Else
              e.DataRow("编号列") = "PT" & Format(e.DataRow("日期"),"yyMMdd") & Format(e.DataTable.Compute("Count(日期)", "[日期] = #" & e.DataRow("日期") & "# And [_identify] < 100" & e.DataRow("_Identify"))+1,"00")

    End if
End If

放在表事件datacolchanged中.

主题：在多用户环境下实现不重复编号