Access 2013多列List Box末尾添加项的实现求助

既然你的列表框是绑定到数据表（Row Source Type设为Table/Query），那直接往列表框里插项是行不通的——列表框的内容是和数据源实时同步的，正确的思路是先把新记录插入到对应的数据源表，再刷新列表框，这样新项自然会出现在列表末尾。

下面给你具体的实现步骤和代码示例：

核心原理 #

因为列表框的内容来自数据表/查询，所以所有的增删改操作都要针对数据源来做，列表框本身只是数据的展示容器。你需要确保插入的记录包含所有10个字段的值（包括那些隐藏列对应的字段，除非字段允许为空），这样才能保证数据表记录完整。

实现步骤&代码示例 #

1. 基础版：直接用SQL插入固定值 #

假设你的数据源表叫YourDataTable，字段是Field1到Field10，可以在窗体上添加一个按钮，给按钮写点击事件代码：

Private Sub btnAddNewItem_Click()
    Dim insertSQL As String
    
    ' 拼接INSERT语句，替换成你实际的表名、字段名和要插入的值
    insertSQL = "INSERT INTO YourDataTable (Field1, Field2, Field3, Field4, Field5, Field6, Field7, Field8, Field9, Field10) " & _
                "VALUES ('显示列的值1', '显示列的值2', 456, #2024-05-20#, '隐藏列值1', '隐藏列值2', '隐藏列值3', '隐藏列值4', '隐藏列值5', '隐藏列值6')"
    
    ' 执行SQL语句，dbFailOnError参数会在插入出错时抛出提示，方便调试
    CurrentDb.Execute insertSQL, dbFailOnError
    
    ' 刷新列表框，让新记录显示出来
    Me.YourListBoxName.Requery
End Sub

2. 实用版：从窗体控件获取输入值 #

如果是通过窗体上的文本框、日期控件等收集用户输入，把控件值代入SQL即可：

Private Sub btnAddNewItem_Click()
    Dim insertSQL As String
    
    insertSQL = "INSERT INTO YourDataTable (Field1, Field2, Field3, Field4, Field5, Field6, Field7, Field8, Field9, Field10) " & _
                "VALUES ('" & Me.txtField1 & "', '" & Me.txtField2 & "', " & Me.txtNumberField & ", #" & Me.txtDateField & "#, '" & Me.txtHiddenField1 & "', '" & Me.txtHiddenField2 & "', '" & Me.txtHiddenField3 & "', '" & Me.txtHiddenField4 & "', '" & Me.txtHiddenField5 & "', '" & Me.txtHiddenField6 & "')"
    
    CurrentDb.Execute insertSQL, dbFailOnError
    Me.YourListBoxName.Requery
    
    ' 可选：清空输入控件，方便下次输入
    Me.txtField1 = ""
    Me.txtField2 = ""
    Me.txtNumberField = ""
    Me.txtDateField = ""
    ' 其他控件同理清空
End Sub

3. 安全版：使用参数查询（避免SQL错误） #

如果用户输入的文本包含单引号（比如O'Neil），直接拼接SQL会导致语法错误。这种情况用参数查询更安全：

Private Sub btnAddNewItem_Click()
    Dim qdf As QueryDef
    Dim insertSQL As String
    
    ' 定义带参数的SQL语句
    insertSQL = "INSERT INTO YourDataTable (Field1, Field2, Field3, Field4) " & _
                "VALUES (@Field1, @Field2, @Field3, @Field4)"
    
    ' 创建临时查询对象
    Set qdf = CurrentDb.CreateQueryDef("", insertSQL)
    
    ' 给每个参数赋值，替换成你实际的控件名
    qdf.Parameters("@Field1") = Me.txtField1
    qdf.Parameters("@Field2") = Me.txtField2
    qdf.Parameters("@Field3") = Me.txtNumberField
    qdf.Parameters("@Field4") = Me.txtDateField
    ' 继续给剩下的6个字段参数赋值...
    
    ' 执行插入
    qdf.Execute dbFailOnError
    
    ' 清理对象
    Set qdf = Nothing
    
    ' 刷新列表框
    Me.YourListBoxName.Requery
End Sub

关键注意点 #

• 必须确保插入的记录包含所有必填字段的值，如果某个字段允许为空，可以省略对应的参数/值，但建议尽量对应全表字段。
• 执行完插入后一定要调用Requery方法刷新列表框，否则新记录不会显示。
• 如果你的列表框的Row Source是自定义查询而不是直接的表，插入数据后同样适用——只要查询的数据源表有了新记录，刷新列表框就能同步显示。

内容的提问来源于stack exchange，提问作者Pangu