datagrid - 将值从 DataGrid 复制到数组 vb6

Question

我有一个我想解决的问题。

我想在 adodc 更新数据库中的记录之前检查一列是否在数据网格的行中重复了一个值。

为此，我将获取 DataGrid 中显示的记录并将它们放入一个数组中，然后计算单元格中具有相同值的行数。

我遇到的问题是我不能将 DataGrid 的单元格放在一个数组中，所以我可以检查重复的行。

如何在数组中获取 DataGrid 的单元格？或者在数据库中进行更新之前，我如何知道行的值是否重复？

Answer 1

我同意@bob-riemersma 的观点，即您的验证应该通过数据绑定和数据库约束来完成，但是如果您想手动完成（我认为这是一个坏主意），我会使用一个集合：

Private Function GridColHasDuplicates(col As Long) As Boolean
    On Error GoTo DupeError
    Dim noDupes As New Collection

    myGrid.row = 0
    myGrid.col = col
    Do While myGrid.row <= myGrid.VisibleRows - 1
        noDupes.Add myGrid.Columns(col).Value ' this will error off if dupe
        If myGrid.row < myGrid.VisibleRows - 1 Then
            myGrid.row = myGrid.row + 1
        Else
            Exit Do
        End If
    Loop

    GridColHasDuplicates = False
    Exit Function
DupeError:
    GridColHasDuplicates = True

End Function