我想创建一个label控件数组，用来显示数据库中的内容，但老是出错！

Question

用这个试试：
要求你在frmQryResult窗口中已经有一个lblResult(0)Function AddControl()
    Dim i As Integer
    Load frmQryResult
    For i = 1 To RecordCount - 1 Step 1
        load frmqryresult.lblresult(i)
        frmQryResult.lblResult(i).Left = frmQryResult.lblResult(i - 1).Left
        frmQryResult.lblResult(i).Top = frmQryResult.lblResult(i - 1).Top + 300
        frmQryResult.lblResult(i).Height = frmQryResult.lblResult(i - 1).Height
        frmQryResult.lblResult(i).Width = frmQryResult.lblResult(i - 1).Width
        frmQryResult.lblResult(i).Visible = True
    Next
End Function

Answer 1

其中第一个控件必须手动创建index为0