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


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

主题：[求助]自定义函数问题
帅哥哟，离线，有人找我吗？
cqlwsam
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1014 积分：7535 威望：0 精华：0 注册：2010/4/12 12:23:00 		[求助]自定义函数问题  发帖心情 Post By：2015/12/8 8:26:00 [只看该作者]

在项目中自定义函数（控件控制），运行提醒错误，提示如截图。


图片点击可在新窗口打开查看此主题相关图片如下：360反馈意见截图16720406106126102.png
图片点击可在新窗口打开查看

自定义函数代码如下：

Dim FTB As WinForm.Table= Args(0)
Dim frm As WinForm.Form=args(1)
Dim tb As Table = FTB.Table
'Dim frm As  f
If tb.count=0 Then
    For Each c As WinForm.Control In frm.Controls
        If Typeof c Is winform.button Then
            c.Enabled=False
        End If
    Next
    frm.controls("Btn_add").Enabled=True
Else If tb.count=1 Then
    For Each c As WinForm.Control In frm.Controls
        If Typeof c Is winform.button Then
            c.Enabled=False
        End If
    Next
    frm.Controls("Btn_edit").Enabled=True
    frm.Controls("Btn_delete").Enabled=True
    frm.controls("Btn_add").Enabled=True
Else If tb.count>1 AndAlso tb.position=tb.count-1 Then
    For Each c As WinForm.Control In frm.Controls
        If Typeof c Is winform.button Then
            c.Enabled=True
        End If
    Next
    frm.Controls("Btn_last").enabled=False
    frm.Controls("Btn_next").enabled=False
    Frm.Controls("Btn_ok").enabled=False
    frm.Controls("Btn_cancel").enabled=False
Else If tb.count>1 AndAlso tb.position=0 Then
    For Each c As WinForm.Control In frm.Controls
        If Typeof c Is winform.button Then
            c.Enabled=True
        End If
    Next
    frm.Controls("Btn_first").enabled=False
    frm.Controls("Btn_pre").enabled=False
    frm.Controls("Btn_ok").enabled=False
    frm.Controls("Btn_cancel").enabled=False
Else
   For Each c As WinForm.Control In frm.Controls
       If Typeof c Is winform.button Then
           c.Enabled=True
       End If
   Next
   frm.Controls("Btn_ok").enabled=False
   frm.Controls("Btn_cancel").enabled=False
End If
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2015/12/8 8:47:00 [只看该作者]

代码没有问题，问题出在调用的地方，传入了不正确的参数

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/8 9:13:00 [只看该作者]

你传递的是字符吧？

 

 

[此贴子已经被作者于2015/12/8 9:13:13编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
cqlwsam
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1014 积分：7535 威望：0 精华：0 注册：2010/4/12 12:23:00 		  发帖心情 Post By：2015/12/8 11:39:00 [只看该作者]

第一个传递的是表名，第二个是窗口名。

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/8 11:41:00 [只看该作者]

Dim FTB As WinForm.Table= Args(0)
Dim frm As WinForm.Form=args(1)
Dim tb As Table = FTB.Table

 

改成

 

Dim frm As WinForm.Form = Forms(args(1))
Dim tb As Table = Tables(Args(0))
 回到顶部
帅哥哟，离线，有人找我吗？
cqlwsam
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1014 积分：7535 威望：0 精华：0 注册：2010/4/12 12:23:00 		  发帖心情 Post By：2015/12/8 11:45:00 [只看该作者]

代码：
tables（“基本信息_table1”）.allowedit=false
functions.execute("控件控制","基本情况_table1", “基本信息”)
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/8 11:48:00 [只看该作者]

看5楼。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询