副的msflexgrid读取多行数据到主的msflexgrid上的问题

Question

因为只能是回复才能上传图片，所以我再发一次，如果是要用到数组，请给一个详细的代码及说明，谢谢大家了
Private Sub Command4_Click()
  Dim i, b, d, c As Integer
  Dim itemno(), itemname()
  
  
  If Label100 = "Cg_cgddb" Then '取label100的值进行判断,如果是从cg_cgddb来的就执行下面的
       For d = 1 To Grid1.Rows - 1
             If Grid1.TextMatrix(d, 5) = "√" Then
                c = c + 1
             End If
             label102.Caption = c
       Next d   '以上的C值计算我选中副表的的行数
       
             For b = 1 To Grid1.Rows - 1  '读取副表中grid1中选中行的第二列值
                For i = Val(Label101.Caption) To Val(Label101.Caption) + Val(label102.Caption) - 1
                '以上是记录到主表中从你点击的格子开始+副表选中的行数-1
                'label101记录了主表点击时的行数定位
                  If Grid1.TextMatrix(b, 5) = "√" Then  '判断选中的记录到主表
                     Cg_cgddb.Grid1.TextMatrix(i, 1) = Grid1.TextMatrix(b, 1)
                  End If
               Next i
             Next b
  End If
  Unload Me
End Sub

Answer 1

如果是msflexgrid或mshflexgrid的话直接用clip属性来操作多行/多列/自由选择区域的数据, 只要一句代码.

Answer 2

这个问题我已通过二次msflexgrid控件解决，先进行读取一次的msflexgrid，再将空值删除，再读到别一个msflgrid中，谢谢大家了