重置列没必要全部行重置一次。根据你写的代码,只需要把不同供应商编号的第一行重置即可。如代码
Dim dt As DataTable = DataTables("表A")For Each gys As String In dt.GetValues("第一列") dt.datacols("第一列").RaiseDataColChanged(dt.Find("第一列 = '" & gys & "'", "_sortkey"))Next