以连续形式标记记录

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控件，因为它可以为每行添加一个复选框。