主题：表事件，计算编码问题

重置列没必要全部行重置一次。根据你写的代码，只需要把不同供应商编号的第一行重置即可。如代码

Dim dt As DataTable = DataTables("表A")
For Each gys As String In dt.GetValues("第一列")
    dt.datacols("第一列").RaiseDataColChanged(dt.Find("第一列 = '" & gys & "'", "_sortkey"))
Next