vba - 使用 vba 在表单上的文本框中显示一些行

Question

我有一个查询，例如返回 5 行，我想在文本框中显示这些行（字段）。但它只显示了一条记录。我还将表单的默认视图属性设置为连续表单。她是我的代码：

Private Sub List2_DblClick(Cancel As Integer)
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT XValue, YValue,Wert FROM tb_DCM_Daten WHERE (FzgID=" & Forms!frm_fahrzeug!ID & " AND [Name]='" & List2.Value & "')")
If rst.RecordCount <> 0 Then

Do While Not rst.EOF
  Text8.SetFocus
  Text8.Text = rst.Fields("XValue").Value

  Text10.SetFocus
  Text10.Text = rst.Fields("YValue").Value

  Text11.SetFocus
  Text11.Text = rst.Fields("Wert").Value
  rst.MoveNext
Loop   
  End If
End Sub

我怎样才能做到这一点？

Answer 1

就目前而言，您的代码将遍历 Recordset，将第一条记录中的值放入文本框中，然后用第二条记录中的值覆盖这些值，并用第三条记录中的值覆盖这些值，依此类推.

听起来你想要一个子表单。请查看此处的 Office 教程以获取更多信息。