这是切换表格后就自动生成的，我再手动删除，在手动重置，那我就没必要开发这个功能了。
你说的都有，点击按钮，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
你说的重新编号，先清空内容，再重新生成，上述代码有啥没实现的吗？真心没看出来，学生愚钝，还请老师明示~~~
加好友 
发短信
Post By：2015/10/22 15:32:00 [显示全部帖子]
Post By：2015/10/22 15:38:00 [显示全部帖子]
Post By：2015/10/22 15:45:00 [显示全部帖子]
此主题相关图片如下：4.png
