以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  重置 Sortkey 不起作用  (http://foxtable.com/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
--  
太谢谢了。