以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口列表项目问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=6169)

--  作者:wqc360
--  发布时间: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
--  发布时间:2010/3/13 13:47:00
--  
实在不太明白你在说什么?我在三个窗口中没有看见筛选的代码呀?
--  作者:mr725
--  发布时间: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
--  发布时间:2010/3/13 19:17:00
--  
谢谢mr725
--  作者:wqc360
--  发布时间:2010/3/16 20:31:00
--  
请问mr725 兄 ,要排除重复值,代码应该怎么改写,谢谢
--  作者:mr725
--  发布时间:2010/3/16 20:53:00
--  
用contains判断吧~
--  作者:wqc360
--  发布时间:2010/3/16 20:57:00
--  
好人做到底,我不会,请帮帮忙写一下代码,插在3楼什么位置,谢谢
--  作者:mr725
--  发布时间:2010/3/16 21:02:00
--  
没弄懂你要排除什么?  是dr("设备") 的重复值吗 ?
[此贴子已经被作者于2010-3-16 21:03:39编辑过]

--  作者:mr725
--  发布时间: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
--  发布时间:2010/3/17 1:19:00
--  
谢谢