- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 更新过后,自动编号代码失灵了..... (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1415)
-- 发布时间：2008/12/17 0:13:00
-- 更新过后,自动编号代码失灵了.....
If e.DataCol.Name = "入院日期" And e.Datarow.IsNull("入院日期") = False Then
Dim dt As Date = e.DataRow("入院日期") \'获得输入的日期
\'计算编号
e.Datarow("患者ID") = Format(dt,"yymmdd") & Format(e.DataTable.Compute("Count(入院日期)", "[入院日期] = #" & dt & "# And [_identify] < " & e.DataRow("_Identify")) + 1,"000")
End If
标记为红色那里...
出来的编号成了20080017001了......
月份没出来...
-- 发布时间：2008/12/17 0:19:00
--
If e.DataCol.Name = "入院日期" And e.Datarow.IsNull("入院日期") = False Then
Dim dt As Date = e.DataRow("入院日期") \'获得输入的日期
\'计算编号
e.Datarow("患者ID") = Format(dt,"yyMMdd") & Format(e.DataTable.Compute("Count(入院日期)", "[入院日期] = #" & dt & "# And [_identify] < " & e.DataRow("_Identify")) + 1,"000")
End If
-- 发布时间：2008/12/17 0:39:00
--
不好意思....老是给您添麻烦...
-- 发布时间：2008/12/17 9:51:00
--
在ACCESS中有个自动编号的数据类型,建议狐表也能加入此功能
-- 发布时间：2008/12/17 10:00:00
--
以下是引用舜风在2008-12-17 9:51:00的发言：
在ACCESS中有个自动编号的数据类型,建议狐表也能加入此功能
在ACCESS中有个自动编号的数据类型,建议狐表也能加入此功能
foxtable本来就有，只是楼主要求不一样的格式而已。