以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于重置插入行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110301)
--  作者：实话实说
--  发布时间：2017/11/30 16:10:00
--  关于重置插入行
以下是重置插入行按钮的代码，能否写成通用代码，比如重置CurrentTable的插入行

Dim drs As List(of DataRow) = DataTables("产品").Select("","[_SortKey]")
For i As Integer = 0 To drs.Count - 1
    drs(i).BaseRow("_SortKey") = i
Next
--  作者：有点蓝
--  发布时间：2017/11/30 17:07:00
--  
内部函数

dim name as string = args(0)
Dim drs As List(of DataRow) = DataTables(name).Select("","[_SortKey]")
For i As Integer = 0 To drs.Count - 1
    drs(i).BaseRow("_SortKey") = i
Next

调用
Functions.Execute("函数名称","产品")
Functions.Execute("函数名称","表A")
--  作者：实话实说
--  发布时间：2021/11/14 11:47:00
--  

不想用内部函数，想在工具栏使用，以下代码不行


Dim drs As List(of DataRow) = CurrentTable.Select("","[_SortKey]")
For i As Integer = 0 To drs.Count - 1
    drs(i).BaseRow("_SortKey") = i
Next
--  作者：有点蓝
--  发布时间：2021/11/14 20:52:00
--  
Dim drs As List(of DataRow) = CurrentTable.DataTable.Select("","[_SortKey]")