初学编程:窗体上有两个文本框(接收输入、修改记录),一个MSFlexGrid,若干命令按钮。
思路:每新添一条记录,通知MSFlexGrid1增加一行,然后给单元赋值,刷新窗体重新显示,这些均能正确执行;
当修改某条记录时,从MSFlexGrid1中选出某条记录赋给文本框,(鼠标点击)定位紊乱就出现了,这是咋回事?哪位高手能指点吗?
TextMatrix_EnterCell事件:
Dim nCurCellRow as integer
nCurCellRow=MSFlexGrid1.MouseRow
TxtEdit.text=MSFlexGrid1. TextMatrix(nCurCellRow,0)
endsub
还有数据行较多时,移动MSFlexGrid1滑动条时,数据行不能同步移动,挺别扭!不知哪位高手有办法处理同步移动问题吗?
各位高手,哪个控件能实现数据表行列显示、可固定行列标题、单元编辑、焦点行增亮、数据行列定位等。

解决方案 »

  1.   

    1.放在
    Private Sub MSHFlexGrid1_Click()End Sub
    2.
    MSHFlexGrid1.BandDisplay = flexBandDisplayVertical3.MSHFLEXGRID也可以有相应的功能,不过,要编程实现.
    TDBGRID. VSFLEXGRID.
      

  2.   

    Mstop:
    2.
    MSHFlexGrid1.BandDisplay = flexBandDisplayVertical
    运行提示:找不到方法、或成员.
      

  3.   

    直接在设计时改变:BandDisplay属性值为flexBandDisplayVertical.
      

  4.   

    Mstop:
    定位未经严格测试,可以过关;但数据行与滑动条同步移动问题怎么解决,
    目前设置MSHFlexGrid1.BandDisplay = flexBandDisplayVertical后,
    MSHFlexGrid1仍只是在释放鼠标键后才更新!
      

  5.   

    各位高手,哪个控件能实现数据表行列显示、可固定行列标题、单元编辑、焦点行增亮、数据行列定位等。/////////////////spread吧
    当修改某条记录时,从MSFlexGrid1中选出某条记录赋给文本框,(鼠标点击)定位紊乱就出现了,这是咋回事?哪位高手能指点吗?
    /////////////////
    還是放載click事件中,好象代碼沒有你所選擇那麼復雜。mouserow是鼠標滑動時候有用,經常用與移動變色Public Sub getrow()
      Dim i As Integer
       With Form1.MSFlexGrid1
        For i = 0 To .Rows
         .Col = 0
         If .Text = "" Then
          Call getfrist
           Exit Sub
         Else
          Form1.Text1.Text = .Text
         End If
          .Col = 1
          Form1.Text2.Text = .Text
          .Col = 2
          Form1.Text3.Text = .Text
     
         Next i
      End With
    End Sub移動問題:偶找不到代碼了....
      

  6.   

    但数据行与滑动条同步移动问题怎么解决
    MSHFlexGrid1.ScrollTrack = True
      

  7.   

    谢谢楼上的朋友。本题结题,Mstop(70),daisy8675(10)
      

  8.   

    本题结题,Mstop(70),daisy8675(10)