Vb6 如何查找dataGrid是否包含列

给定一个名为grid的现有数据网格

当我试图访问

grid.Columns（“column\u name”）

时，我得到一个异常

未找到列，列名称

我试过了

If Not IsNull(grid.Columns("column_name")) Then '...

但我还是有例外

我想要一些我可以称之为

grid.ContainsColumn("column_name")

---

DataGrid中的列只有一个标题文本来标识该列是什么，因此您可以使用类似这样的内容来检查该列是否存在，方法是查找标题与您要查找的列名匹配的列

Private Function DataGrid_CheckColumnExists(dataGrid As dataGrid, columnName As String)
    Dim columnCount As Long, columnIndex As Long
    Dim checkColumnName As String

    columnCount = dataGrid.Columns.Count

    For columnIndex = 0 To columnCount - 1
        checkColumnName = dataGrid.Columns(columnIndex).Caption

        DataGrid_CheckColumnExists = (StrComp(checkColumnName, columnName, vbTextCompare) = 0)
        If DataGrid_CheckColumnExists Then Exit Function 'No need to continue once we found it
    Next columnIndex
End Function