以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  后台取编号最大值  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=104046)

--  作者：zoyong --  发布时间：2017/7/21 17:20:00 --  后台取编号最大值 \'-----------------------------生成编号--------------------------- If e.DataCol.Name = "登记日期" Then     If e.DataRow.IsNull("登记日期") Then         e.DataRow("编号") = Nothing     Else         Dim bh As String = "sk" & Format(e.DataRow("登记日期"),"yyyy") \'取得编号的8位前缀         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(bh.length)) + 1 \'获得最大编号的后三位顺序号,并加1         Else             idx = 1 \'否则顺序号等于1         End If         e.DataRow("编号") = bh & Format(idx,"0000")     End If End If 上面代码可用，现在情况是：加载窗体数据后，新增编号会自动+1.不加载数据点新增，编号都是初始值，永远都是第一个值 帮忙改成后台取最大值，谢谢！

--  作者：zoyong --  发布时间：2017/7/21 17:23:00 --   \'-----------------------------生成编号--------------------------- If e.DataCol.Name = "登记日期" Then     If e.DataRow.IsNull("登记日期") Then         e.DataRow("编号") = Nothing     Else         Dim bh As DataRow = DataTables("在建项目").Find("编号 = \'" & e.DataRow("编号") & "\'")                     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(bh.length)) + 1 \'获得最大编号的后三位顺序号,并加1         Else             idx = 1 \'否则顺序号等于1         End If         e.DataRow("编号") = bh & Format(idx,"0000")     End If End If 我改成这样也不行 [此贴子已经被作者于2017/7/21 17:23:20编辑过]

--  作者：有点甜 --  发布时间：2017/7/21 17:40:00 --   If e.DataCol.Name = "登记日期" Then     If e.DataRow.IsNull("登记日期") Then         e.DataRow("编号") = Nothing     Else         Dim bh As String = "sk" & Format(e.DataRow("登记日期"),"yyyy") \'取得编号的8位前缀         Dim max As String         Dim idx As Integer         max = e.DataTable.sqlCompute("Max(编号)","编号 like \'" & bh & "%\' And [_Identify] <> " & e.DataRow("_Identify")) \'取得该天的最大编号         If max > "" Then \'如果存在最大编号             idx = CInt(max.Substring(bh.length)) + 1 \'获得最大编号的后三位顺序号,并加1         Else             idx = 1 \'否则顺序号等于1         End If         e.DataRow("编号") = bh & Format(idx,"0000")         e.DataRow.Save     End If End If