专家坐堂-重置 Sortkey 不起作用Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  重置 Sortkey 不起作用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=179711)

--  作者：edisontsui
--  发布时间：2022/9/5 11:53:00
--  重置 Sortkey 不起作用

If CurrentTable.name = "接头BOM" Then
Tables("接头BOM").Sort = "物料号,二级物料号,原材料"
For r As Integer = 0 To dataTables("接头BOM").datarows.count - 1
Dim dr As dataRow = dataTables("接头BOM").dataRows(r)
dr.BaseRow("_SortKey") = r + 1
Next
End If

我做了一个上面代码的按钮，希望重置 Sortkey。排序起作用了，但是重置 Sortkey 不起作用。请问是什么原因？谢谢。

--  作者：有点蓝
--  发布时间：2022/9/5 12:04:00
--

If CurrentTable.name = "接头BOM" Then
Tables("接头BOM").Sort = "物料号,二级物料号,原材料"
For r As Integer = 0 To Tables("接头BOM").rows.count - 1
Dim dr As Row = Tables("接头BOM").Rows(r)
dr.datarow.BaseRow("_SortKey") = r + 1
Next
End If

--  作者：edisontsui
--  发布时间：2022/9/5 13:38:00
--
太谢谢了。