'大致原理,还需要按照你自己的要求调整 Private Sub Command1_Click() MSFlexGrid1.AddItem "aa" & vbTab & "asdasd"
Dim i As Integer Dim iRow As Integer
iRow = MSFlexGrid1.Row MSFlexGrid1.Row = iRow + 1 For i = 0 To MSFlexGrid1.Cols - 1 MSFlexGrid1.Col = i MSFlexGrid1.CellBackColor = vbGreen Next End Sub
MSFlexGrid1.row=MSFlexGrid1.rows-1
如果已知序号3
MSFlexGrid1.row=3
Private Sub Command1_Click()
MSFlexGrid1.AddItem "aa" & vbTab & "asdasd"
Dim i As Integer
Dim iRow As Integer
iRow = MSFlexGrid1.Row
MSFlexGrid1.Row = iRow + 1
For i = 0 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Col = i
MSFlexGrid1.CellBackColor = vbGreen
Next
End Sub