初学编程:窗体上有两个文本框(接收输入、修改记录),一个MSFlexGrid,若干命令按钮。
思路:每新添一条记录,通知MSFlexGrid1增加一行,然后给单元赋值,刷新窗体重新显示,这些均能正确执行;
当修改某条记录时,从MSFlexGrid1中选出某条记录赋给文本框,(鼠标点击)定位紊乱就出现了,这是咋回事?哪位高手能指点吗?
TextMatrix_EnterCell事件:
Dim nCurCellRow as integer
nCurCellRow=MSFlexGrid1.MouseRow
TxtEdit.text=MSFlexGrid1. TextMatrix(nCurCellRow,0)
endsub
还有数据行较多时,移动MSFlexGrid1滑动条时,数据行不能同步移动,挺别扭!不知哪位高手有办法处理同步移动问题吗?
各位高手,哪个控件能实现数据表行列显示、可固定行列标题、单元编辑、焦点行增亮、数据行列定位等。
思路:每新添一条记录,通知MSFlexGrid1增加一行,然后给单元赋值,刷新窗体重新显示,这些均能正确执行;
当修改某条记录时,从MSFlexGrid1中选出某条记录赋给文本框,(鼠标点击)定位紊乱就出现了,这是咋回事?哪位高手能指点吗?
TextMatrix_EnterCell事件:
Dim nCurCellRow as integer
nCurCellRow=MSFlexGrid1.MouseRow
TxtEdit.text=MSFlexGrid1. TextMatrix(nCurCellRow,0)
endsub
还有数据行较多时,移动MSFlexGrid1滑动条时,数据行不能同步移动,挺别扭!不知哪位高手有办法处理同步移动问题吗?
各位高手,哪个控件能实现数据表行列显示、可固定行列标题、单元编辑、焦点行增亮、数据行列定位等。
Private Sub MSHFlexGrid1_Click()End Sub
2.
MSHFlexGrid1.BandDisplay = flexBandDisplayVertical3.MSHFLEXGRID也可以有相应的功能,不过,要编程实现.
TDBGRID. VSFLEXGRID.
2.
MSHFlexGrid1.BandDisplay = flexBandDisplayVertical
运行提示:找不到方法、或成员.
定位未经严格测试,可以过关;但数据行与滑动条同步移动问题怎么解决,
目前设置MSHFlexGrid1.BandDisplay = flexBandDisplayVertical后,
MSHFlexGrid1仍只是在释放鼠标键后才更新!
当修改某条记录时,从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