如何将数组与MSHFlexGrid同步实现按需加载数据？

明确说：没有完全无需自定义代码的原生方式能直接让MSHFlexGrid和大数组做按需同步，但可以借助控件自带事件结合简单逻辑实现，不用自己编写滚动条或按键处理代码。

核心思路 #

利用MSHFlexGrid的Scroll事件（滚动时触发），结合控件自带的行位置属性，计算当前可见区域对应的数组行范围，只加载该范围内的数据到网格中。如果是分页场景，可配合分页按钮的点击事件实现同样逻辑。

具体实现步骤 #

1. 初始化网格配置

   • 设置Cols为30（和数组列数匹配），FixedRows为1（保留表头行）。
   • 提前把Rows属性设为15000（让控件知道总数据行数，这样滚动条才能正常工作），但只填充当前可见区域的行数据，其余行暂时留空。

2. 计算可见行对应的数组范围

   • 通过TopRow获取网格顶部可见的行索引，VisibleRows获取当前可见行数，转换为数组的起始/结束索引（注意网格行索引从1开始，数组通常从0开始，需做偏移）：
     • 数组起始行：startArrRow = MSHFlexGrid1.TopRow - 1
     • 数组结束行：endArrRow = startArrRow + MSHFlexGrid1.VisibleRows - 1
   • 额外判断边界，避免超出数组的15000行上限。

3. 按需填充数据到网格

   • 在Scroll事件中执行数据填充，示例VB6代码如下：

     Private Sub MSHFlexGrid1_Scroll()
         Dim startArrRow As Long, endArrRow As Long
         Dim gridRow As Long, col As Integer
         
         ' 转换网格行索引为数组索引
         startArrRow = MSHFlexGrid1.TopRow - 1
         endArrRow = startArrRow + MSHFlexGrid1.VisibleRows - 1
         
         ' 防止越界
         If endArrRow > 14999 Then endArrRow = 14999
         If startArrRow < 0 Then startArrRow = 0
         
         ' 填充当前可见行的数据
         For gridRow = MSHFlexGrid1.TopRow To MSHFlexGrid1.TopRow + MSHFlexGrid1.VisibleRows - 1
             If gridRow > MSHFlexGrid1.Rows - 1 Then Exit For
             For col = 0 To 29
                 MSHFlexGrid1.TextMatrix(gridRow, col) = YourBigArray(startArrRow + gridRow - MSHFlexGrid1.TopRow, col)
             Next col
         Next gridRow
     End Sub
     

4. 分页场景适配

   • 如果用分页按钮，点击时计算当前页的起始行（比如每页20行，第N页起始行是(N-1)*20），直接设置MSHFlexGrid1.TopRow = (N-1)*20 + 1，触发Scroll事件自动加载对应页数据即可。

注意事项 #

• 必须提前设置网格总行数，否则滚动条无法正常显示和操作，也就不用自己写自定义滚动条逻辑。
• 注意数组和网格的索引对应关系，避免出现数组越界错误。
• 如果数组内容动态更新，需同步更新网格总行数，并重新加载当前可见区域的数据。

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