1

我有一个函数可以提取然后在列表框中显示一个记录集。

我的列表框中只有一个字段。

有没有办法可以在列表框中显示整列“标题”（几个字段）？

Function GetCaption() As String

   Dim db As Database
   Dim rst As DAO.Recordset
   Dim SQL As String
   Dim LCaption As String

   Set db = CurrentDb()

   SQL = "SELECT Caption FROM tblMainMenu"

   Set rst = db.OpenRecordset(SQL)

   If rst.EOF = False Then
      LCaption = rst("Caption")
   Else
      LCaption = "Not found"
   End If

   rst.Close
   Set rst = Nothing

   GetCaption = LCaption

End Function

Private Sub btnGetCaption1_Click()

    LstBx.RowSourceType = "Value List"
    LstBx.RowSource = GetCaption

End Sub

Private Sub Form_Load()

    LstBx.RowSource = ""
    btnGetCaption1.Caption = DLookup("ReportID", "tblMainMenu", "ReportID = 1")

End Sub
4

1 回答 1

1

我不确定我对您的目标的理解程度。但是，如果您希望列表框包含tblMainMenu.Caption值，每个列表框行一个，您可以使用查询作为其记录源。

在设计视图中打开窗体，打开列表框的属性表，然后选择数据选项卡。然后为行源类型选择“表/查询”。为 Row Source 属性添加此 SQL。

SELECT [Caption] FROM tblMainMenu

然后选择“格式”选项卡，并为“列数”​​属性输入 1。

最后切换到表单视图并告诉我们这是否为您提供了您想要的，或者它与您想要的有何不同。

于 2013-08-18T20:55:31.217 回答