为什么新增行的第一列的值,默认为上一行第一列的值,具体代码如下:
If VSFlexGrid1.Row = VSFlexGrid1.Rows - 1 Then
VSFlexGrid1.AddItem Row
End If
With VSFlexGrid1
If .Col = .Cols - 1 Then
.Row = .Row + 1
.Col = .FixedCols
Else
.Col = Col + 1
End If
End With
If VSFlexGrid1.Row = VSFlexGrid1.Rows - 1 Then
VSFlexGrid1.AddItem Row
End If
With VSFlexGrid1
If .Col = .Cols - 1 Then
.Row = .Row + 1
.Col = .FixedCols
Else
.Col = Col + 1
End If
End With
这里有个可选参数,row表示你要在那一行之前插入
要看到插入行显示在最后的效果
可以在下面这一句前加入其他使vsflexgrid失去焦点的代码
比如:
Command1.SetFocus
VSFlexGrid1.AddItem Row That's it!