MSHFlexGrid控件定位不稳定问题，谁能帮帮忙，小弟多给分。

[chendjin]

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

[chendjin]

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

[华芸智森]

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

[chendjin]

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

[daisy8675]

各位高手，哪个控件能实现数据表行列显示、可固定行列标题、单元编辑、焦点行增亮、数据行列定位等。

/////////////////

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

移動問題：偶找不到代碼了....

[华芸智森]

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

[chendjin]

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

[chendjin]

本题结题，Mstop（70），daisy8675(10)

[华芸智森]

1.放在
Private Sub MSHFlexGrid1_Click()

End Sub
2.
MSHFlexGrid1.BandDisplay = flexBandDisplayVertical

3.MSHFLEXGRID也可以有相应的功能,不过,要编程实现.
TDBGRID. VSFLEXGRID.