求助 VB MSHFlexGrid 问题

Question

 怎样mshflexgrid内容同步显示在text.box 的文本上。文本上有一个change事件，但是mshflexgrid没有个这个。
 
  我第二次提问这个问题了，希望大家不要瞎猜来引导累死我。   

Answer 1

怎么个同步法呢?
GRID有多个单元格,TEXT只有一个.
你是要把整个GRID所有单元格的内容合并到一个TEXT里面么?文本有change事件是因为TEXT是可以编辑的,GRID没有这个事件是因为GRID是不可编辑的

Answer 2

，yao1mshflexgrid1的最后行内容在text.box 文本框同样显示方法。
 
 mshflexgrid内容改变时,text.box 内容同样改变显示作用。

Answer 3

呵呵，不好意思建议你每次问题解决后再结贴
mshflexgrid数据是怎么获取的？

Answer 4

 
 With MSHFlexGrid1 
      Text14.Text = .TextMatrix(.Rows - 1, 2) 
      Text16.Text = .TextMatrix(.Rows - 1, 3) 
      Text17.Text =  .TextMatrix(.Rows - 1, 4) 
      Text18.Text =  .TextMatrix(.Rows - 1, 5) 
      Text19.Text =  .TextMatrix(.Rows - 1, 6) 
  End With  mshflexgrid1的最后行内容同步显示在 本本框里。

Answer 5

问题问的不清楚，mshflexgrid里面有多少条记录，你所说的mshflexgrid同步显示是指什么，是记录发生增加还是？还是里面某个单元格的数据发生改变？
textbox要显示全部还是部分？具体点

Answer 6

 我再次问一下， 如果，两个mshflexgr时，第一个mshflexgrid1的内容跟随第二个mshflexgrid2上同步更新显示要怎么做呢

Answer 7

窗体加一mshflexgrid和text.box 就可以了。Option ExplicitPrivate Sub Form_Load()
    Dim i As Integer
    Dim j As Integer
    With MSHFlexGrid1
        .Rows = 5
        .Cols = 5
        For i = 1 To 5 - 1
            For j = 1 To 5 - 1
                .TextMatrix(i, j) = i
            Next
        Next
    End With
End SubPrivate Sub MSHFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    
    If Button = 1 Then '鼠标单击
        With MSHFlexGrid1
            If .Row > 0 And .Col > 0 Then
                Text1.Text = .TextMatrix(.Row, .Col)
            End If
        End With
    End If
End Sub