- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]帮我看一下错在哪里 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56545)
-- 发布时间：2014/9/8 16:08:00
-- [求助]帮我看一下错在哪里
If e.DataCol.Name = "编号_年份" Then
If e.DataRow.IsNull("编号_年份") Then
e.DataRow("编号_序列号") = Nothing
Else
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(编号_序列号)","编号_年份 = #" & e.DataRow("编号_年份") & "# And [_Identify] <> " & e.DataRow("_Identify")) \'取得该年的最大序列号
If max > "" Then \'如果存在最大序列号
idx = CInt(max.Substring(1,3)) + 1 \'获得最大序列号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("编号_序列号") = Format(idx,"000")
End If
End If
帮我看一下这个代码错在哪里，序列号无法自动生成
此主题相关图片如下：捕获.png
此主题相关图片如下：捕获1.png
此主题相关图片如下：捕获.png此主题相关图片如下：捕获1.png年份是获取的系统日期中的年
[此贴子已经被作者于2014-9-8 16:09:34编辑过]
-- 发布时间：2014/9/8 22:55:00
--
分别有两列：编号_年份和编号_序列号
编号_年份是自动获取的系统日期中的年，如2014、2015、...
我想让编号_序列号自动生成，如：当编号_年份中为2014时编号_序列号就从00001开始，当编号_年份中为2015时编号_序列号就自动回到从00001开始
请大侠指教，这个代码该如何写？
此主题相关图片如下：捕获.png
[此贴子已经被作者于2014-9-8 23:02:38编辑过]
-- 发布时间：2014/9/9 1:32:00
--
能加Q309363027？
-- 发布时间：2014/9/9 9:02:00
--
请上例子, 如果你存的是年,是数值列,那么就不要用作日期列来对比.
如果是日期列,那么你要搞清楚具体日期是多少.否则会找不到匹配项.
-- 发布时间：2014/9/9 10:25:00
--
If e.DataCol.Name = "编号_年份" Then
If e.DataRow.IsNull("编号_年份") Then
e.DataRow("编号_序列号") = Nothing
Else
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(编号_序列号)","编号_年份 = \'" & e.DataRow("编号_年份") & "\' And [_Identify] <> " & e.DataRow("_Identify")) \'取得该年的最大序列号
If max > "" Then \'如果存在最大序列号
idx = CInt(max) + 1 \'获得最大序列号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("编号_序列号") = Format(idx,"00000")
End If
End If