下面这段代码，使用窗体时新增时，只对已加载的进行自动编号，新增记录会在后台数据库出现重复编号的问题，把Compte改为SQLcompute后，发现新增后编号都是一样的
If e.DataCol.Name = "生产日期" Then
If e.DataRow.isnull("生产日期") = True Then
e.DataRow("入库单号") = Nothing
Else
Dim bh As String = "SC-" & Format(e.DataRow("生产日期"),"yyMMdd")
If e.DataRow("入库单号").startswith(bh) = False Then
Dim idx As Integer
Dim max As String
max = DataTables("产品入库表").Compute("max(入库单号)","入库单号 like '" & bh & "*'")
If max > "" Then
idx = cint(max.Substring(9,3)) + 1
Else
idx = 1
End If
e.DataRow("入库单号") = bh & Format(idx,"000")
End If
End If
End If
[此贴子已经被作者于2017/2/23 16:14:25编辑过]
加好友 
发短信
Post By：2017/2/23 15:53:00 [只看该作者]
