[求助] 关于再增加行之后不能自动生成代码的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

各位前辈，请教一个问题：

我datarowadding事件里面增加了如下内容，不报错，但是没有实现序号增加的功能。想请教一下。

public leibie as 1

e.DataRow("日期")=Date.Today()

e.DataRow("工程代码")= leibie

Dim d As Date = e.DataRow("日期")

Dim y As Integer = d.Year

Dim fd As Date = New Date(y,1,1)

Dim ld As Date = New Date(y,12,31)

Dim bh As String = Format(d,"yyyy")

Dim max As String

Dim idx As Integer

Dim flt As String

flt = "工程代码 = '"& e.DataRow("工程代码") & "' And 制单日期 >= #" & fd & "# And 制单日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")

max = e.DataTable.Compute("Max(编号)",flt)

MessageBox.Show(max, "提示")

If max > "" Then '如果存在最大编号

idx = CInt(max.Substring(21,4)) + 1 '获得最大编号的后三位顺序号,并加1

Else

idx = 1 '否则顺序号等于1

End If

e.DataRow("编号") ="GDUP-BJSD/YW-" & Format(leibie,"00")&"-" & bh & Format(idx,"0000")

主题：[求助] 关于再增加行之后不能自动生成代码的问题