标题: 如何把某一张表的所有字段名赋值给组合框？ [打印本页] 作者: fatmingli 时间: 2009-3-6 21:23 标题: 如何把某一张表的所有字段名赋值给组合框？ 下面的代码是我在网站上找到的，可以把表“固定资产登记审批单”的所有字段名赋值给变量Tbname，然后 通过MsgBox分行显示。
想请各位大哥帮忙改一下，改成赋值给组合框，也就是说组合框的数据源就是表的字段名。谢谢！
Dim rst As New ADODB.Recordset
Dim Tbname As String
Dim FieldsCount As Integer
Dim i As Integer
Tbname = "固定资产登记审批单"
rst.Open "select top 1 * from " & Tbname, CurrentProject.Connection
FieldsCount = rst.Fields.Count
For i = 0 To FieldsCount - 1
Tbname = Tbname & vbNewLine & rst.Fields(i).Name
Next
MsgBox Tbname
rst.Close作者: Henry D. Sy 时间: 2009-3-7 07:28
For i = 0 To FieldsCount - 1
Tbname = Tbname & rst.Fields(i).Name & ";"
Next
If Tbname <> "" Then
Tbname = Left(Tbname, Len(Tbname) - 1)
End If
Me.组合框名.RowSourceType = "Value List"
Me.组合框名.RowSource = Tbname作者: Henry D. Sy 时间: 2009-3-7 07:29
其实最简单是直接将
行来源类型设为字段列表
行来源设为表名作者: fatmingli 时间: 2009-3-7 10:36
谢谢，你的建议非常好。
我将总是复杂化，但学到东西。