请问,如何把MSFLEXGRID中的重复数据行删除掉??

Question

如问题,请指教??

Answer 1

忘了,我不是绑定ADO的,是手工输入的

Answer 2

(1)标准模块自定义函数Public Function RemoveDoubleItemFormMsg(ByVal msg As MSFlexGrid) As Boolean
On Error GoTo 0    Dim i As Long, j As Long, k As Long
    
    With msg
aa:
        If .Rows = 2 Then Exit Function
        For i = 1 To .Rows - 2
            For j = i + 1 To .Rows - 1
                For k = 0 To .Cols - 1
                    If .TextMatrix(i, k) <> .TextMatrix(j, k) Then GoTo bb
                Next
                .RemoveItem j
                GoTo aa
bb:
            Next
        Next
    End With
    
End Function
(2)窗体中引用示例：Private Sub Form_Load()
    
    Dim i As Long, j As Long
    With msg1
        .Cols = 5
        .Rows = 5
        .FixedCols = 0
        .FixedRows = 1
        For i = 1 To 4
            For j = 0 To 4
                .TextMatrix(i, j) = i + j
            Next
        Next
        .Rows = .Rows + 2
        For i = 0 To 4
            .TextMatrix(.Rows - 2, i) = .TextMatrix(3, i)
            .TextMatrix(.Rows - 1, i) = .TextMatrix(2, i)
        Next
    End With
    
End Sub
Private Sub msg1_DblClick()
        RemoveDoubleItemFormMsg msg1
End Sub

Answer 3

呵呵,昨晚已经解决,不过还是谢谢FYMING