如何取得列表框的列标题？

lshstruc

如题，如何取得listbox的列标题值（注意不是listview）

roych

标题一般是字段名。不妨考虑通过行来源（RowSource）来的SQL语句结合ADO进行读取Field.Name属性。
http://www.office-cn.net/forum.php?mod=viewthread&tid=96036&highlight=%C1%D0%B1%ED%BF%F2%2B%CB%AB%BB%F7
http://www.office-cn.net/forum.php?mod=viewthread&tid=96517&highlight=%C1%D0%B1%ED%BF%F2

lshstruc

谢谢版主提供的ado取字段名。
我现在准备直接从rowsource的sql语句里面，直接操作字符串，提取字段名
请问还有别的办法吗？

todaynew

如果存在列标题，则0行即为标题行。各种数据源类型，均可采用以下方式得到列标题：

Function ListTitle(ByVal lst As ListBox) As String
    Dim str As String
    Dim i As Integer
    str = ""

    If lst.ColumnHeads = True Then
        For i = 0 To lst.ColumnCount - 1
            str = str & lst.Column(i, 0) & ";"
        Next
        str = Left(str, Len(str) - 1)
    End If

    ListTitle = str
End Function

lshstruc

查了联机帮助：
RowSourceType 属性指定是用字段名称还是用第一行数据项来创建列标题。如果将 RowSourceType 属性设置为“表/查询”，则字段名称将用作列标题。如果字段带有标题，则显示该标题。例如，如果列表框有三列（ColumnCount 属性设置为 3），并且 RowSourceType 属性设置为“表/查询”，则前三个字段名称（或标题）将用作标题。
谢谢roych，谢谢todaynew。也附上我的笨办法：
On Error Resume Next
Dim i As Integer
Dim name As String
Dim sql As String
sql = Replace(List2.RowSource, " ", "")
sql = Split(sql, "select")(1)
sql = Split(sql, "from")(0)
For i = 0 To List2.ColumnCount - 1
    name = Split(Split(sql, ",")(i), ".")(1)   
Next

tmtony

先设置  ColumnHeads  临时为真
取完后，再按原来的配置 看看是否再隐藏列标题
在这节公开课中有讲过
http://www.office-cn.net/thread-119395-1-1.html

lshstruc

谢谢站长，已用。