- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]动态函数 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=111099)
-- 发布时间：2017/12/15 9:32:00
-- [求助]动态函数
老师，
Dim str2 As String
str &= "dim txt " & vbcrlf
下面开始想要定义一个空间 就出错 应该怎么写 不会是不能再dim ?
str &="txt=dim " & dr("idtype") & dr("id") & " as WinForm." & dr("controltype") & vbcrlf
str &= "txt= forms("""& dr("ckname") &""").CreateControl(""" & dr("idtype") & "_" & dr("idjc") & "_" & dr("id") & """, ControlTypeEnum." & dr("controltype") & ")" & vbcrlf
类似‘’Dim btn111 As WinForm.Button=e.Form.Control(..,..)
此主题相关图片如下：qq图片20171215091852.png
-- 发布时间：2017/12/15 10:00:00
--
改成
str &="dim " & dr("idtype") & dr("id") & " as WinForm." & dr("controltype") & vbcrlf