请问如何把一个数据表中的所有字段名加到一个组合框中去？

songshan046

请问如何把一个数据表中的所有字段名加到一个组合框中去？

cg1

更改“行来源类型”为“值列表”

function GetFieldDescription() ' Dim MyTableName As String Dim MyFieldName As String Dim MyDB As New ADOX.Catalog Dim MyTable As ADOX.Table Dim MyField As ADOX.Column Dim pro On Error GoTo Err_GetFieldDescription MyDB.ActiveConnection = CurrentProject.Connection For Each MyTable In MyDB.Tables For Each MyField In MyTable.Columns Debug.Print "FieldName:" & MyField.Name MyFieldName =MyFieldName & ";" & MyField.Name Next Next Set MyDB = Nothing combox1.RowSource=MyFieldName

Bye_GetFieldDescription: Exit Function

Err_GetFieldDescription: Beep MsgBox Err.Description, vbExclamation GetFieldDescription = Null Resume Bye_GetFieldDescription

End Function

winak

“行来源类型”为 表/查询时，combox中列出的是对应表中某一字段中的值

要列出某个表的字段，将行来源类型 改为 字段列表 即可

loadhigh

songshan046：你好！

是要将所有列组合成combobox的一列，还是有多少列，combobox就有多少列？

第1种情况，我一般是编写代码解决，当然也可以通过修改combobox的属性来做。

第2种情况，你可以修改combobox的属性：

将“ 行来源类型” 设定为“表/查询”；将“行来源”设定为 具体的表或查询的名称；将“列数”设定为具体的列数 即可。