Foxtable(狐表)用户栏目专家坐堂 → ListView添加窗口


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

主题:ListView添加窗口

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


加好友 发短信
等级:九尾狐 帖子:2159 积分:14971 威望:0 精华:0 注册:2017/10/12 13:00:00
ListView添加窗口  发帖心情 Post By:2020/2/15 14:29:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/15 14:46:00 [只看该作者]

RowActivate事件处理http://www.foxtable.com/webhelp/topics/2872.htm

msgbox(e.sender.Current.text)
forms(e.sender.Current.text).open
[此贴子已经被作者于2020/2/15 14:45:46编辑过]

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


加好友 发短信
等级:九尾狐 帖子:2159 积分:14971 威望:0 精华:0 注册:2017/10/12 13:00:00
  发帖心情 Post By:2020/2/15 15:18:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/15 15:20:00 [只看该作者]

 select case e.sender.Current.text
Case "过程不良审核"
        Forms("过程异常明细").Open()
        MainTable = Tables("过程异常明细")

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


加好友 发短信
等级:九尾狐 帖子:2159 积分:14971 威望:0 精华:0 注册:2017/10/12 13:00:00
  发帖心情 Post By:2020/2/15 15:52:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/15 16:07:00 [只看该作者]

1、添加的是小图标,在大图标模式下当然无效
lvw.Images.AddImage(ics(i),ics(i) & ".ico", ics(i) & ".ico"


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


加好友 发短信
等级:九尾狐 帖子:2159 积分:14971 威望:0 精华:0 注册:2017/10/12 13:00:00
  发帖心情 Post By:2020/2/15 17:58:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/16 19:41:00 [只看该作者]

用法完全一样的,只是给TopicLink赋值改为给其它地方赋值而已

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


加好友 发短信
等级:九尾狐 帖子:2159 积分:14971 威望:0 精华:0 注册:2017/10/12 13:00:00
  发帖心情 Post By:2020/2/16 21:23:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/16 21:47:00 [只看该作者]

比如

Dim vg As WinForm.ListViewGroup = lvw.Groups.Add() '增加分组 
    vg.Name = "指定分组名称"
    vg.Text = "指定分组名称(" &  DataTables("管理层杂工总表").SQLCompute("Count(审核状态)","需审核人 = '"  & _UserName & "' and 审核状态 = '待审核'") & ")"

 回到顶部
总数 24 1 2 3 下一页