以连续形式标记记录

Question

在连续子窗体中，我显示基于DISTINCT查询的记录。因为它是独特的，所以每一行都包含一个记录ID 而不是。

有没有人知道添加复选框（或类似）的方式，以便用户可以选择任何记录，然后通过代码创建新记录？

我更喜欢将子窗体用于列表，因为它具有许多列排序和过滤功能。

MTIA

Answer 1

仅供参考，我决定使用Windows ListView OCX控件，因为它提供了为每行添加复选框的功能。

Answer 2

根据需要创建记录什么，这样的样本可能适合：

Function DisplaySelectedCompanyNames() 
    Dim i As Long 
    Dim F As Form 
    Dim RS As Recordset 

    '' Get the form and its recordset. 
    Set F = Forms![Customers1] 
    Set RS = F.RecordsetClone 

    '' Move to the first record in the recordset. 
    RS.MoveFirst 

    '' Move to the first selected record. 
    RS.Move F.SelTop - 1 

    '' Enumerate the list of selected records presenting 
    '' the CompanyName field in a message box. 
    For i = 1 To F.SelHeight 
    MsgBox RS![CompanyName] 
    RS.MoveNext 
    Next i 

End Function 

更多信息：http://support.microsoft.com/kb/208502