只需一步,快速开始
您需要 登录 才可以下载或查看,没有帐号?注册
使用道具 举报
可在窗体加载的时候加上如下代码: Dim ctr As ControlFor Each ctr In Me.Controls If Right(ctr.Name, 2) = "标签" Then ctr.OnClick = "=orderme('" & Left(ctr.Name, Len(ctr.Name) - 3) & "')" E ... tmtony 发表于 2006-6-3 07:51
本版积分规则 发表回复
|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )
GMT+8, 2024-12-2 06:33 , Processed in 0.109476 second(s), 36 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.