VB6中MSFlexGrid行列匹配数据时循环仅显示单条记录的问题排查

代码中存在的核心问题 #

• 手动篡改For循环变量：For循环会自动按步长递增i和r，但你在循环体内额外执行了r = r + 1和i = i + 1，导致循环变量每次跳2步，直接跳过大量行列，多数匹配条件根本没机会被检查。
• 记录集指针被多次错误移动：匹配成功时调用rs.MoveNext，内层、外层循环结束后又各调用一次rs.MoveNext，这会让记录集指针被快速推进，大部分记录还没完成匹配就被跳过，甚至会提前触发rs.EOF，导致剩余记录完全没处理。
• 循环逻辑顺序颠倒：现有逻辑是遍历FlexGrid的行列再去匹配记录，这会导致同一条记录被重复检查，或多条记录被错误跳过。正确逻辑应该是先遍历每条记录，再在FlexGrid中定位对应的行列。

修正后的代码示例 #

rs.MoveFirst

' 遍历每条记录
Do While Not rs.EOF
    ' 一次性获取当前记录的匹配条件与待填充值
    Dim colMatch As String, rowMatch As String
    colMatch = rs(30)
    rowMatch = rs(31)
    Dim targetVal As String
    targetVal = rs(1)
    
    ' 查找匹配的列（第一行为列标题）
    Dim matchCol As Integer
    matchCol = -1
    For i = 0 To MSFlexGrid1.Cols - 1
        If MSFlexGrid1.TextMatrix(0, i) = colMatch Then
            matchCol = i
            Exit For ' 找到匹配列后立即退出循环，提升效率
        End If
    Next
    
    ' 查找匹配的行（第一列为行标题）
    Dim matchRow As Integer
    matchRow = -1
    For r = 0 To MSFlexGrid1.Rows - 1
        If MSFlexGrid1.TextMatrix(r, 0) = rowMatch Then
            matchRow = r
            Exit For ' 找到匹配行后立即退出循环
        End If
    Next
    
    ' 行列都匹配成功时填充数据
    If matchCol <> -1 And matchRow <> -1 Then
        MSFlexGrid1.TextMatrix(matchRow, matchCol) = targetVal
    End If
    
    ' 处理完当前记录后，再移动到下一条
    rs.MoveNext
Loop

修正逻辑说明 #

1. 先遍历每条记录，一次性读取匹配条件和待填充值，避免重复访问记录集。
2. 分别查找匹配的列和行，找到后立即退出循环，减少不必要的遍历。
3. 仅在处理完当前记录的所有匹配逻辑后，才调用一次rs.MoveNext，确保每条记录都被完整处理。
4. 移除手动修改For循环变量的代码，让循环按正常步长执行。

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