关于窗体按钮动态加载单击事件的问题

珍惜¤拥有　发表于：2011-10-26 20:13:34 　

复制

MenuChild为子窗体 cmd_MenuList1、cmd_MenuList2 …… cmd_MenuList5 为子窗体上的5个按钮

Private Sub FillMenucmd(Frm As Form)

……

…… 此处省略其它语句

For i = 1 To rs.RecordCount

With Form!MenuChild("cmd_MenuList" & i)

.Visible = True

.OnClick = "=setMenuListClickOn(""" & Form!MenuChild("cmd_MenuList" & i).Name & """,""" & Form!MenuChild("cmd_MenuList" & i).Caption & """)" '动态加载按钮单击事件

' 请问以上语句是否正确，应该如何写才对，谢谢了！

End With

rs.MoveNext

End Sub

Function setMenuListClickOn(strCtlName As String, strCtlCaption As String)

……

End Function

Top

煮江品茶发表于：2011-10-27 09:32:13

.OnClick = "=setMenuListClickOn('" & Form!MenuChild("cmd_MenuList" & i).Name & "','" & Form!MenuChild("cmd_MenuList" & i).Caption & "')"

Top

珍惜¤拥有发表于：2011-10-27 11:57:01

还是不行哦

Top

麥田发表于：2011-10-31 14:36:17

检查有没有丢失的引用

Top

珍惜¤拥有发表于：2011-10-31 15:10:40

没有哦，没有丢失的引用

Top

珍惜¤拥有发表于：2011-11-01 15:20:28

呵呵，已经用其他办法解决了

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

关于窗体按钮动态加载单击事件的问题