列属性排序 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 列属性排序

共有3308人关注过本帖树形打印复制链接主题：列属性排序

采菊东篱下

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2020/12/23 11:04:00 [显示全部帖子]

改成这样没错，巷列为空的序号也为空了。

Dim dr As DataRow

dr = e.DataTable.Find("[_SortKey] < " & e.DataRow("_SortKey"), "[_SortKey] Desc")

If dr Is Nothing Then '如果是第一行,计算结存

e.DataRow("序号") = 1

dr = e.DataRow

End If

Dim drs As List(of DataRow) = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey"), "[_SortKey]")

For i As Integer = 1 To drs.Count - 1

If drs(i).IsNull("巷") Then

drs(i)("序号") = Nothing

Else

drs(i)("序号") = drs(i-1)("序号") + 1

End If

[此贴子已经被作者于2020/12/23 11:28:07编辑过]

采菊东篱下

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2020/12/23 11:34:00 [显示全部帖子]

啊，好！你的方法更简单。

采菊东篱下

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2020/12/25 21:26:00 [显示全部帖子]

我顺你给的加附助列作序号顺序思路，顺便学习高效率的流水账设计，读懂了那些代码的意思，如今我已经实现修改巷列数据、或插入行、移动行，序号都能从发生变化行开始重算，可删除行，序号无法重算，这代码是做在按钮上的重置代码，如果我不想做在按钮上，直接在表上删除行，它就执行重算，请教代码应如何写？

Dim dr As DataRow

dr = DataTables("巷").Find("","[_SortKey]") '找出第一行

If dr IsNot Nothing Then

'模拟第一行的支出发生变化, 刷新已加载行的余额.

DataTables("巷").DataCols("序号").RaiseDataColChanged(dr)

End If

采菊东篱下

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2020/12/26 10:09:00 [显示全部帖子]

在DataRowDeleting设为：

e.DataRow("巷") = Nothing

在DataRowDeleted设为：

Dim r As Row = Tables("巷").current

If r Is Nothing OrElse r.index = Tables("巷").rows.count - 1 Then Return

Dim nr As Row = Tables("巷").rows(r.index)

DataTables("巷").DataCols("序号").RaiseDataColChanged(nr.DataRow)

这样就可以自动重算删除行后的所序号了。

下一主题 >> << 上一主题

总数 15 上一页 1 2

主题：列属性排序