我用以下方法添加数据到MSFlexGrid1中,如何使得在cmdUpdate_Click()中每次新加入的数据总在MSFlexGrid1的第二行显示(第一行是标题),

Question

我用以下方法添加数据到MSFlexGrid1中,如何使得在cmdUpdate_Click()中每次新加入的数据总在MSFlexGrid1的第二行显示(第一行是标题),意思就是本来数据是重上到下加入MSFlexGrid1中的,我想在每次加数据时,新加入的数据总在MSFlexGrid1的第二行显示.
窗体导入时MSFlexGrid1只有一个标题行.
Private Sub Form_Load()
MSFlexGrid1.Rows = 1
End SubPrivate Sub cmdUpdate_Click()
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 0) = txtUnit.Text
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 1) = txtShop.Text
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 2) = txtStop.Text
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 3) = txtFix.Text
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 4) = txtEquip.Text
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 5) = txtType.Text
End Sub

Answer 1

Private Sub cmdUpdate_Click()
MSFlexGrid1.AddItem "", 1
'MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.TextMatrix(1, 0) = txtUnit.Text
MSFlexGrid1.TextMatrix(1, 1) = txtShop.Text
MSFlexGrid1.TextMatrix(1, 2) = txtStop.Text
MSFlexGrid1.TextMatrix(1, 3) = txtFix.Text
MSFlexGrid1.TextMatrix(1, 4) = txtEquip.Text
MSFlexGrid1.TextMatrix(1, 5) = txtType.Text
End Sub