Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]enter 自定义事件


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

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


加好友 发短信
等级：九尾狐 帖子：2928 积分：20178 威望：0 精华：0 注册：2012/2/3 17:45:00 		[求助]enter 自定义事件  发帖心情 Post By：2018/6/29 8:19:00 [只看该作者]

老师，
  如下代码，简单而且貌似没有LISTVIEW出现，没找到问题呢？
.NET Framework 版本：2.0.50727.8830
Foxtable 版本：2018.3.9.1
错误所在事件：自定义函数za_ck_Enter
详细错误信息：
调用的目标发生了异常。
无法将类型为“Foxtable.WinForm.ListView”的对象强制转换为类型“Foxtable.WinForm.Table”。


代码
Dim e =args(0)
Dim frm As String=args(1)

If e.Sender.Name.Contains("ccb_xs_") And forms(frm).Controls.contains(e.Sender.name.replace("ccb_xs","tab"))=True Then
    Dim tb As WinForm.Table = forms(frm).Controls(e.Sender.name.replace("ccb_xs","tab"))
    If e.Sender.Text = "select选择列(最好包括拼音)" Then
        e.Sender.Text = ""
    End If
    Dim s As String = ""
    MessageBox.Show(1)
    For Each c As Col In tb.Table.Cols
        If c.Visible=True Then
            s = s & c.Caption & "|"
        End If
    Next
    s = s.TrimEnd("|")
    e.Sender.ComboList = s
End If
'MessageBox.Show(0)
'If e.Sender.Name.Contains("txb_xs_") Then
    'If e.Sender.Text = "Enter回车查询筛选树" Then
        'e.Sender.Text = ""
    'End If
'End If
'MessageBox.Show(1)
Return True
MessageBox.Show(2)
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/6/29 9:04:00 [只看该作者]

加入红色代码

 

If e.Sender.Name.Contains("ccb_xs_") And forms(frm).Controls.contains(e.Sender.name.replace("ccb_xs","tab"))=True Then
msgbox(e.Sender.name)
msgbox(e.Sender.name.replace("ccb_xs","tab"))
msgbox(frm)
msgbox(forms(frm).Controls(e.Sender.name.replace("ccb_xs","tab").gettype.name)
    Dim tb As WinForm.Table = forms(frm).Controls(e.Sender.name.replace("ccb_xs","tab"))
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20178 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/6/29 11:21:00 [只看该作者]

老师 ，
依次弹出如下

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20180629112014.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/6/29 11:27:00 [只看该作者]

1、弹出的内容，你对比一下是否正确啊；

 

2、改成 msgbox(forms(frm).Controls(e.Sender.name.replace("ccb_xs","tab")).gettype.name)
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20178 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/6/29 11:40:00 [只看该作者]

呵呵 找到原因了 

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