- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]自动编号不是从1开始，附图 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76149)
-- 发布时间：2015/10/22 15:32:00
-- [求助]自动编号不是从1开始，附图
还是自动编号的问题，代码如下，后附图，求解~~~~~~
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(0,3)) + 1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("序号") = Format(idx,"000")
End If
End Select
此主题相关图片如下：4.png
此主题相关图片如下：5.png
-- 发布时间：2015/10/22 15:34:00
--
根据第一个序号递增的。你可以先删除全部序号，然后重置单位列。
-- 发布时间：2015/10/22 15:38:00
--
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(序号)","单位 = \'" & e.DataRow("单位") & "\' And [_Identify] <> " & e.DataRow("_Identify")) \'取得该类别的最大编号 If max > "" Then \'如果存在最大编号
If max > "" Then \'如果存在最大编号
idx = CInt(max.Substring(0,3)) + 1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("序号") = Format(idx,"000")
End If
End Select
现在编号都是001，醉了
-- 发布时间：2015/10/22 15:39:00
--
代码不用改，3楼的代码是根据单位分类的。
-- 发布时间：2015/10/22 15:45:00
--
还是用原来的代码，直接清楚所有数据，也不好使啊，还是从38开始
DataTables("总量统计表").DataRows.Clear() \'清除原有数据
-- 发布时间：2015/10/22 15:48:00
--
我的代码逻辑是这样的，切换到【总量统计表】后，先清楚所有数据，再自动填充单位，在自动编号，再是统计数据
-- 发布时间：2015/10/22 15:52:00
--
代码没有问题啊，清除序号列，然后重置列啊
http://www.foxtable.com/help/topics/1469.htm
-- 发布时间：2015/10/22 16:04:00
--
DataTables("总量统计表").DataCols("单位").RaiseDataColChanged()
这个代码一直有，但是看不懂你说的意思
-- 发布时间：2015/10/22 16:06:00
--
要重新编号，就把序号整列内容选择，然后按下del清空全部内容，然后重新生成编号。
-- 发布时间：2015/10/22 16:17:00
--
这是切换表格后就自动生成的，我再手动删除，在手动重置，那我就没必要开发这个功能了。
你说的都有，点击按钮，click事件代码如下：
MainTable = Tables("总量统计表")
Dim f As New Filler \'自动填充
DataTables("总量统计表").DataRows.Clear() \'清除原有数据
f.SourceTable = DataTables("单位设置")
f.SourceCols = "单位"
f.DataTable = DataTables("总量统计表")
f.DataCols = "单位"
f.Fill()
Tables("总量统计表").Sort = "单位"
Dim n As Integer = Tables("总量统计表").Rows.Count-1
Dim k As Integer = Tables("总量统计表").Cols.Count-1
DataTables("总量统计表").DataCols("单位").RaiseDataColChanged()
CurrentTable.Select(0,0,n,k)
Syscmd.Edit.ClearZero() \'清除0项
在【总量统计表】的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(0,3)) + 1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("序号") = Format(idx,"000")
End If
End Select
你说的重新编号，先清空内容，再重新生成，上述代码有啥没实现的吗？真心没看出来，学生愚钝，还请老师明示~~~