我要设计一个采购单，要求在点击“新增”后，生成一条新的空白单，采购单号要自动生成，格式为XX+年+月+日+编号，编号要自动累加。想来这个应该是比较初级的问题，就没提问题，直接在论坛检索，看到了甜老师的一段代码，想着直接抄过来就可以了，谁知调试了一个早晨都调不好，无奈，只能来这里发帖求教了，望各位老师给予指点。-------------------------------------------------------------------------------------
甜老师的代码是这样：
DataRowAdded事件
Dim d As Date = Date.Today
Dim bh As String = "MY" & Format(d,"yyyyMM") '生成编号的前6位,4位年,2位月.
If e.DataRow("编号").StartsWith(bh) = False '如果编号的前6位不符
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(编号)","编号 like '" & bh & "%' And [_Identify] <> " & e.DataRow("_Identify")) '取得该月的最大编号
If max > "" Then '如果存在最大编号
idx = CInt(max.Substring(8,4)) + 1 '获得最大编号的后三位顺序号,并加1
Else
idx = 1 '否则顺序号等于1
End If
e.DataRow("编号") = bh & Format(idx,"0000")
End If
--------------------------------------------------------------------------------------
但是我实际运行报错：datarow不是controleventargs的成员
再检索这个错误，甜老师在另外一个帖子说把 e.DataRow 改成 Tables("表A").Current
但是我改了之后还是报错。
我错在哪里呢？？
附件的图片是我改甜老师代码后的报错截图
此主题相关图片如下：cw.jpg
[此贴子已经被作者于2018/10/27 16:11:59编辑过]
加好友 
发短信
Post By：2018/10/27 16:01:00 [只看该作者]
Post By：2018/10/27 16:03:00 [只看该作者]
