以连续形式标记记录

Question

在连续子表单中，我根据 DISTINCT 查询显示记录。因为它是不同的，所以每行不包含记录 ID。

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

我更喜欢使用列表的子表单，因为它具有许多列排序和过滤功能。

MTIA

Answer 1

根据创建记录所需的内容，类似此示例的内容可能适合：

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

Answer 2

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