Foxtable(狐表)用户栏目专家坐堂 → 窗口列表项目问题


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

主题:窗口列表项目问题

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


加好友 发短信
等级:三尾狐 帖子:790 积分:5695 威望:0 精华:0 注册:2009/4/17 18:42:00
窗口列表项目问题  发帖心情 Post By:2010/3/13 10:50:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目23.table

打开窗口1、窗口3,切换表A行,表C数据会变化,但是窗口3设备和姓名控件列表项目能正常筛选。表C数据与表D一样,变化后可对比。
把窗口3设备组和班组控件的代码去掉,变成窗口2.
打开窗口1、窗口2,切换表A行,表C数据不会变化,但是窗口2设备和姓名控件列表项目不能正常筛选。
求教如用窗口2,列表项目不用窗口控件班组和设备组的变化筛选,而用窗口表“表A。表C”光标所在行进行筛选,代码应怎么写。
这就是我昨天提出的保存问题,其实是窗口控件问题,谢谢

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57640 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2010/3/13 13:47:00 [只看该作者]

实在不太明白你在说什么?我在三个窗口中没有看见筛选的代码呀?

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/3/13 14:05:00 [只看该作者]

放在 窗口2 的 MouseEnter事件中:
Dim drs As List(Of DataRow)
drs = DataTables("表B").Select("[设备组] = '" & tables("表A.表C").current("设备组") & "'")
dim sb as string
for each dr as datarow in drs
if sb = ""
    sb = dr("设备")
else
    sb = sb & "|" & dr("设备")
end if
next
Dim sb11 As WinForm.ComboBox = Forms("窗口2").Controls("设备11")
sb11.ComboList= sb

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


加好友 发短信
等级:三尾狐 帖子:790 积分:5695 威望:0 精华:0 注册:2009/4/17 18:42:00
  发帖心情 Post By:2010/3/13 19:17:00 [只看该作者]

谢谢mr725

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


加好友 发短信
等级:三尾狐 帖子:790 积分:5695 威望:0 精华:0 注册:2009/4/17 18:42:00
  发帖心情 Post By:2010/3/16 20:31:00 [只看该作者]

请问mr725 兄 ,要排除重复值,代码应该怎么改写,谢谢

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/3/16 20:53:00 [只看该作者]

用contains判断吧~

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


加好友 发短信
等级:三尾狐 帖子:790 积分:5695 威望:0 精华:0 注册:2009/4/17 18:42:00
  发帖心情 Post By:2010/3/16 20:57:00 [只看该作者]

好人做到底,我不会,请帮帮忙写一下代码,插在3楼什么位置,谢谢

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/3/16 21:02:00 [只看该作者]

没弄懂你要排除什么?  是dr("设备") 的重复值吗 ?
[此贴子已经被作者于2010-3-16 21:03:39编辑过]

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/3/16 21:19:00 [只看该作者]

这样吗?:
Dim drs As List(Of DataRow)
drs = DataTables("表B").Select("[设备组] = '" & tables("表A.表C").current("设备组") & "'")
dim sb as string
for each dr as datarow in drs
    if sb = ""
        sb = dr("设备")
    else
        if sb.contains(dr("设备")) = false
            sb = sb & "|" & dr("设备")
        end if
    end if
next
Dim sb11 As WinForm.ComboBox = Forms("窗口2").Controls("设备11")
sb11.ComboList= sb

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


加好友 发短信
等级:三尾狐 帖子:790 积分:5695 威望:0 精华:0 注册:2009/4/17 18:42:00
  发帖心情 Post By:2010/3/17 1:19:00 [只看该作者]

谢谢

 回到顶部