Foxtable(狐表)用户栏目专家坐堂 → [求助]自定义函数问题


  共有2748人关注过本帖树形打印复制链接

主题:[求助]自定义函数问题

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/10 22:27:00 [显示全部帖子]

1、函数没问题;

 

2、你动态生成panel以后,并没有添加到窗口里面去,所以找不到。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/10 23:09:00 [显示全部帖子]

以下是引用blsu33在2017/9/10 23:01:00的发言:
老师,
    上述代码耗时12秒,如何能快速增加10个Boton,名字规则btn_xz_*名称
[此贴子已经被作者于2017/9/10 23:06:00编辑过]

 

不要每次都编译和执行代码。

 

把所有的代码一次性得到以后,编译一次,执行一次。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/11 9:07:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:复件 添加方法.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/11 9:39:00 [显示全部帖子]

 项目没问题。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/11 17:32:00 [显示全部帖子]

看懂代码,自行修改。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/11 17:36:00 [显示全部帖子]


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/12 9:05:00 [显示全部帖子]

1、提示不存在某某控件,说明你窗口没有add上对应的控件;

 

2、控件必须添加进form里面,才能用children,如

 

Dim pg =forms("窗口1").CreateControl("aaa",ControlTypeEnum.panel)
Dim s1 As WinForm.SplitContainer=FormS("窗口1").CreateControl("bbb",ControlTypeEnum.SplitContainer)
pg.AddControl(s1)
forms("窗口1").AddControl(pg)
msgbox(pg.children.count)


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/12 11:16:00 [显示全部帖子]


    For Each cdr As DataRow In drs
        ctab.TabPages.Add(cdr("编码规则"), cdr("编码名称"))
        Functions.Execute("loop", ctab, cdr)
    Next

 

改成

 


    For Each cdr As DataRow In drs
        ctab.TabPages.Add(cdr("编码规则"), cdr("编码名称"))
        Functions.Execute("loop", ctab, cdr, e)
    Next


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/12 11:41:00 [显示全部帖子]

以下是引用blsu33在2017/9/12 11:27:00的发言:
 自定义函数loop 中的21楼的代码部分 添加Botton 不成功

 

你传入的参数有问题,请加入msgbox自行调试,这个很简单的。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/12 13:34:00 [显示全部帖子]

以下是引用blsu33在2017/9/12 11:44:00的发言:
明明没有问题 为什么就是不行。

 

弹出代码

 

msgbox(pnl.name.split("_")(2))


 回到顶部
总数 12 1 2 下一页