- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]自动编号代码求助，调用目标发生异常~ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76145)
-- 发布时间：2015/10/22 14:18:00
-- [求助]自动编号代码求助，调用目标发生异常~
我只想要个普通的编号代码~在表的datecolchanged属性写下如下代码：
但运行时提示调用目标发生异常，如图：
Select e.DataCol.Name \'自动编号
Case "单位"
If e.DataRow.IsNull("单位") Then
e.DataRow("序号") = Nothing
Else
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(序号)","单位 = [_Identify] <> " & e.DataRow("_Identify")) \'取得该类别的最大编号
If max > "" Then \'如果存在最大编号
idx = CInt(max.Substring(2,3)) + 1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("序号") = Format(idx,"000")
End If
End Select
此主题相关图片如下：3.png
-- 发布时间：2015/10/22 15:03:00
--
知道哪错了
-- 发布时间：2015/10/22 15:07:00
--
max = e.DataTable.Compute("Max(序号)","单位 = \'" & e.DataRow("单位") & "\' And [_Identify] <> " & e.DataRow("_Identify")) \'取得该类别的最大编号