标题：[求助]控件Click下的自动编号问题

1楼

cyh2017 发表于：2017/10/17 18:04:00

以下代码是DataColchanged下的自动编号代码，，请问如果要移到按钮控件的click下，增加一行后，直接按条件给个编号，要怎么修改。。。。。。

Select e.DataCol.Name

Case "公司名称"

If e.DataRow.IsNull("公司名称") Then

e.DataRow("公司编号") = Nothing

Else

If e.DataRow("公司编号").StartsWith("C") = False '如果编号前缀不符

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,4)) + 1 '获得最大单据编号的后四位顺序号,并加1

Else

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

End If

e.DataRow("公司编号") = "C" & Format(idx,"0000")

End If

End Select

共1 条记录, 每页显示 10 条, 页签: [1]