请教:动态菜单

jks

Private Sub Item1_Click()
    If Left(Me!Item1.Tag, 1) = 1 Then
        Me.Subform.SourceObject = "frmInfo"
    End If
    If Left(Me!Item1.Tag, 1) = 2 Then
        Me.Subform.SourceObject = "frmQryInvoice"
    End If
    If Left(Me!Item1.Tag, 1) = 3 Then
        Me.Subform.SourceObject = "frmReport"
    End If
    If Left(Me!Item1.Tag, 1) = 4 Then
        Me.Subform.SourceObject = "frmModify"
    End If
End Sub
请问该代码的作用?[em24]

Benjamin_luk

    If Left(Me!Item1.Tag, 1) = 4 Then '取得菜单排序号码
        Me.Subform.SourceObject = "frmModify" ‘设新的菜单

jks

Subform是要先定义的吗?为什么运行后显示编译错误:方法和数据成员未找到.

Benjamin_luk

你是COPY人家的代码吧，

jks

这也是学习方式的一种嘛