有SQL2008外部数据源“员工”表一张,有“员工编号”列,自己在表事件DataColChanged中写入以下代码:
此主题相关图片如下:1.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2017-12/2017121910295449432.png)
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(员工编号)","[_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,"0000")
新增行,不自动增加编号,无解,希望老师帮忙一下!