VB.NET DataGridView 循环为选中单元格按选择顺序编号结果反转问题

• DataGridView 内置的 SelectedCells 集合排序逻辑与用户点选顺序完全无关：集合默认严格按照单元格所在行号升序、同行的按列号升序排列，不管你是正序还是逆序遍历这个集合，拿到的都是固定的网格位置顺序，根本不匹配用户的实际选择时序，这是你不管怎么调整循环方向都得不到正确结果的根本原因。
• 现有代码的附加bug：循环内反复给CurrentCell赋值，而CurrentCell始终指向当前激活的单个单元格，每次循环都会覆盖该单元格的值，进一步打乱最终的赋值结果。

要拿到真实的单元格选择先后顺序，必须自行维护顺序列表，不能依赖SelectedCells的内置排序。具体实现步骤：

1. 在窗体类级别声明按顺序存储选中单元格的列表：

' 按用户选择先后顺序存储选中的单元格
Private selectedCellOrder As New List(Of DataGridViewCell)()

2. 为DataGridView绑定SelectionChanged事件，实时同步列表与实际选中状态：

Private Sub DataGridView1_SelectionChanged(sender As Object, e As EventArgs) Handles DataGridView1.SelectionChanged
    ' 追加新选中的单元格到列表末尾，匹配最新选择时序
    For Each cell As DataGridViewCell In DataGridView1.SelectedCells
        If Not selectedCellOrder.Contains(cell) Then
            selectedCellOrder.Add(cell)
        End If
    Next

    ' 移除已经取消选中的单元格，避免列表残留无效项
    For i As Integer = selectedCellOrder.Count - 1 To 0 Step -1
        Dim targetCell = selectedCellOrder(i)
        If Not targetCell.Selected Then
            selectedCellOrder.RemoveAt(i)
        End If
    Next
End Sub

3. 执行批量赋值时，直接遍历自定义顺序列表即可：

Dim input1 As String
input1 = InputBox("Please, enter a regular text.", "Input Box", "LTS")
If input1 = "" Then Exit Sub

' 按选择顺序依次赋值，序号从1开始累加
For index As Integer = 0 To selectedCellOrder.Count - 1
    ' 旧版本VB请替换为：selectedCellOrder(index).Value = input1 & "-" & (index + 1).ToString()
    selectedCellOrder(index).Value = $"{input1}-{index + 1}"
Next

• 该实现下，列表的顺序与用户的点选时序完全一致：第一个点选的单元格对应列表索引0，赋值后显示LTS-1，第二个点选的显示LTS-2，以此类推，完全匹配需求。
• 如果用户中途取消选中某个单元格，列表会自动移除对应项，后续序号会自动重排，不会出现跳号错位。
• 不要在赋值循环内修改CurrentCell属性，该操作会改变当前选中状态，打乱原有选择逻辑。

内容的提问来源于stack exchange，提问作者sem