共5 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：更新过后,自动编号代码失灵了.....
1楼
菜鸟foxtable 发表于：2008/12/17 0:13:00If 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了......
月份没出来...
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了......
月份没出来...
2楼
czy 发表于：2008/12/17 0:19:00If 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
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
3楼
菜鸟foxtable 发表于：2008/12/17 0:39:00
不好意思....老是给您添麻烦...
4楼
舜风 发表于：2008/12/17 9:51:00在ACCESS中有个自动编号的数据类型,建议狐表也能加入此功能
5楼
狐狸爸爸 发表于：2008/12/17 10:00:00以下是引用舜风在2008-12-17 9:51:00的发言：
在ACCESS中有个自动编号的数据类型,建议狐表也能加入此功能
在ACCESS中有个自动编号的数据类型,建议狐表也能加入此功能
foxtable本来就有，只是楼主要求不一样的格式而已。
共5 条记录, 每页显示 10 条, 页签:
[1]