Flexgrid中假使有三条记录，如何清除指定的某条，而且删除后行要合并起来，不要空一行

Question

If (vbYes = MsgBox("您确定要删除该纪录吗？,这可能回导致数据的丢失", vbYesNo + vbQuestion, "信息提示")) Then
            rs.Delete
            If MSFlexGrid1.Row = MSFlexGrid1.Rows - 1 Then
                MSFlexGrid1.Rows = MSFlexGrid1.Rows - 1
            Else
                For i = MSFlexGrid1.Row + 1 To MSFlexGrid1.Rows - 1
                    MSFlexGrid1.Row = i
                    MSFlexGrid1.Col = 0
                    ll1 = MSFlexGrid1
                    MSFlexGrid1.Col = 1
                    ll2 = MSFlexGrid1
                    MSFlexGrid1.Col = 2
                    ll3 = MSFlexGrid1
                    MSFlexGrid1.Col = 3
                    ll4 = MSFlexGrid1
                    MSFlexGrid1.Row = i - 1
                    MSFlexGrid1.Col = 0
                    MSFlexGrid1 = ll1
                    MSFlexGrid1.Col = 1
                    MSFlexGrid1 = ll2
                    MSFlexGrid1.Col = 2
                    MSFlexGrid1 = ll3
                    MSFlexGrid1.Col = 3
                    MSFlexGrid1 = ll4
                Next
                MSFlexGrid1.Rows = MSFlexGrid1.Rows - 1
            End If
         End If
    End If
参考一下这个吧

Answer 1

MSFlexGrid1.RemoveItem index
index是行号