Question

VB高手请进 MSHFlexGrid1 问题

Private Sub Command1_Click()
MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 1
Command6.Caption = MSHFlexGrid1.Rows
End Sub

Private Sub Command2_Click()
Dim a As Integer

For a = 1 To 5
MSHFlexGrid1.AddItem "" & vbTab & "公司" & vbTab & "timenow" & vbTab & "etf e"
Next a

MSHFlexGrid1.RemoveItem 2
MSHFlexGrid1.RemoveItem 4
End Sub

'为什么先单击Command2再单击Command1就没反应了,错在哪了?

Answer 1

Private Sub Command2_Click()
Dim a As Integer
MSHFlexGrid1.Rows = 2: MSHFlexGrid1.Cols = 4
'加一句 初始行及列，因为你下面的代码添加 了4列数据
For a = 1 To 5
MSHFlexGrid1.AddItem "" & vbTab & "公司" & vbTab & "timenow" & vbTab & "etf e"
Next a

MSHFlexGrid1.RemoveItem 2
MSHFlexGrid1.RemoveItem 4
End Sub

追问

你把代码在电脑上运行一下，就知道你回答的根本不对了。Command1得运行第三次才出结果，并且MSHFlexGrid1.Rows 和实际数也对不上。

追答

不是第三次才出结果，是没有设定行高，
MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 1
MSHFlexGrid1.RowHeight(MSHFlexGrid1.Rows - 1) = 300

Answer 2

在Command2里面添加一些初始化的语句。
MSHFlexGrid1.Rows = 1: MSHFlexGrid1.Cols = 1

追问

你把代码在电脑上运行一下，就知道你回答的根本不对了。Command1得运行第三次才出结果，并且MSHFlexGrid1.Rows 和实际数也对不上。