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


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

主题:ListView添加窗口

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


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

老师,如图是我自己项目里的,我想把图1做成图2那样的,请问要打开的窗口名称怎么添加进去呢?谢谢!


图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


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


加好友 发短信
等级:超级版主 帖子:46622 积分:236552 威望:0 精华:8 注册: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


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

老师,能指定窗口名打开吗?因为我显示出来的名字不一定是窗口名字。能不能像以下这样的?谢谢
    Case "过程不良审核"
        Forms("过程异常明细").Open()
        MainTable = Tables("过程异常明细")


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:超级版主 帖子:46622 积分:236552 威望:0 精华:8 注册: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


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

非常谢谢老师!
还有两个问题需要请教:1、关于图标显示,我已经把对应的图标按照帮助的方法把放到指定文件夹了如图1。但对应的图标却不能显示。2、在我的工作管理这个里面,我想统计出需要待办的数量(比如:采购申请审核,统计条件是在采购申请明细这表中,统计需要审核人为当前登录名,订单状态:待审核等条件的待处理事项),数据显示到对应的图标上。字体加粗,红色。就像1楼中里有个批文管理那样的。谢谢您!


Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.Groups.Clear() '清除原来的分组
lvw.Rows.Clear() '清除原来的行
lvw.Images.Clear() '清除原来的图片
lvw.View = ViewMode.LargeIcon '用大图标模式
Dim gps() As  String  = {"我的工作管理","仓库业务","财务管理","采购管理","系统维护","生产管理","销售业务"} '定义分组名称
Dim nms() As String = {"采购申请审核","采购申请驳回","过程不良审核","生产异常方案","影响明细填写","异常结案确认","生产异常驳回","管理工时批准","工时补助审核","工时补助驳回","测试2","测试3","测试4","测试5","测试6","测试7","测试8","测试9","测试10","测试11","测试12","测试13","测试14","测试15","测试16","测试17","测试18","测试19","测试20"} '定义标题  
Dim ics() As String = {"1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29"} '定义图标键值 
For Each gp As String In gps
    Dim vg As WinForm.ListViewGroup = lvw.Groups.Add() '增加分组
    vg.Name = gp '指定分组名称
    vg.Text = gp '指定分组标题
Next
For i As Integer = 0 To nms.Length - 1
    lvw.Images.AddImage(ics(i),ics(i) & ".ico", ics(i) & "48.ico") '添加代表这个国家的小图标
    Dim r As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行
    r.Text = nms(i) '指定标题
    r.ImageKey = ics(i) '指定图标键值
    Select Case nms(i)  '指定各个国家所属的分组
        Case "采购申请审核","采购申请驳回","过程不良审核","生产异常方案","影响明细填写","异常结案确认","生产异常驳回","管理工时批准","工时补助审核","工时补助驳回"
            r.Group = "我的工作管理"
        Case "测试2","测试3"
            r.Group = "仓库业务"
        Case "测试4","测试5"
            r.Group = "财务管理"
        Case "测试6","测试7","测试8","测试9"
            r.Group = "采购管理"
        Case "测试10","测试11","测试12"
            r.Group = "系统维护"

        Case "测试13","测试14","测试15","测试16"
            r.Group = "生产管理"
        Case "测试17","测试18","测试19","测试20"
            r.Group = "销售业务"
    End Select
Next

此主题相关图片如下:1.png
按此在新窗口浏览图片


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


加好友 发短信
等级:超级版主 帖子:46622 积分:236552 威望:0 精华:8 注册: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


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

老师,谢谢您,5楼还有个问题帮忙看看,就是怎么根据条件统计计数呢?值显示到对应的分组上面(比如:采购申请审核,统计条件是在“采购申请明细”这表中,统计需要审核人为当前登录名,订单状态:待审核等条件的待处理事项,结果显示到采购申请审核这个组名上。“过程不良审核”计数是从“过程不良明细”这个统计的),谢谢!

我用TopicBar1时是用以下代码进行统计的:

Dim cnt3 As Integer = DataTables("管理层杂工总表").SQLCompute("Count(审核状态)","需审核人 = '"  & _UserName & "' and 审核状态 = '待审核'")
e.Form.Controls("TopicBar1").Pages("工时业务处理").Links("管理工时批准").text = "管理工时批准(" & cnt3 & ")"
Dim cnt4 As Integer = DataTables("异常申请记录").SQLCompute("Count(审核状态)","需审核人 = '"  & _UserName & "' and 审核状态 = '待审核' and 操作类型 = '修磨处理'")
e.Form.Controls("TopicBar1").Pages("刀具业务过程").Links("刀具修磨审核").text = "刀具修磨审核(" & cnt4 & ")"
[此贴子已经被作者于2020/2/15 18:24:34编辑过]

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


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

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

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


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

老师,我把代码改成了如下,但是提示图1的错误,图2是导航窗口用的控件类型。请帮忙看看,谢谢

此主题相关图片如下:2.png
按此在新窗口浏览图片


此主题相关图片如下:1.png
按此在新窗口浏览图片

Dim tl1 As WinForm.TopicLink = DataTables("管理层杂工总表").SQLCompute("Count(审核状态)","需审核人 = '"  & _UserName & "' and 审核状态 = '待审核'")
tl1 = Forms("导航窗口").Controls("TopicBar1").Pages("工时业务处理").Links("管理工时批准")


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


加好友 发短信
等级:超级版主 帖子:46622 积分:236552 威望:0 精华:8 注册: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 下一页